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El juego 
de la vida 

Lo que esta vivo, ^tiene leyes?sComo 
evoluciona una forma viviente ? Lste fascinante 
juego lo muesfra de principio a fin. No es el 
comienzo de la genetica asistida por 
ordenador, pero se le parece tanto... Ademas, 
todo en lenguaje maquina. 




Simuladores 
de vuelo 


Hacia falta una cosa asi. Alguien tenia que 
probar todos los simuladores ae vuelo que 
existen para Amstrad, es dedr, los 
«juegos» mas especfaculares para 
ordenador, habil y objetivamente juzgada por 
nuestro equipo de expertos en software. 




El lenguaje Forth 


El lenguaje Forth es per amonomasia uno 
de los favoritos de los programadores, usado 
a menudo como herramienta de desarrollo. Su 
funcionalidad, junto a su proximidad a la 
maquina trabajando a un nivel 
verdaderamente bajo, le capadtan como un 
verdadero sustitutivo del en ocasiones 
trabajoso y cansino eddigo maquina. 
AMSTRAD ESPECIALnumero 3 os ofrece un 
interprete de FORTH, ideal para iniciarse en 
este lenguaje. 






Robotica 

Los ordenadores estdn aqui. Sus hijos, los 
robots, tambien, y ya estdn empezanao a 
ejercer una importante influencia en nuestras 
vidas. La Segunda Revolucion Informdtica 
empezd ayer. 


Mundo de 
bloques 



Hay cosas que son increibles, como un 
elefante que vuele, o como este progrema, 
dentro de la mas pura tradicion de a IA, que 
«existe» en un mundo imaginario regido por 
una serie de leyes, las cuales le permifen 
entender Castellano normal y ejecutar ordenes 
de gran complejiaad. Simplemente, es 
increible. 
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Cuando John Horton Con¬ 
way, famoso matematico de 
la Universldad de Cambridge, 
ere « por pi imer a vez en su or- 
denador el conacido juego de 
la vida no podia imaginar el 
revuelo que este causaria; 
aun despues de tanto tiempo, 
seria tremendamente difidI 
evaluar las pdrdidas econo¬ 
micas que su juego provoco. 
En todas las grandes empre- 
sas de Ef.UU., alii donde ex is- 
tiese un ordenador, miles de 
seres unicelulares nacian y 
morion tras un monitor ver - 
de. 

Ahora, anas despues, A/VIS- 
TRAD Especial ofrece a todos 
sus lectores la posibilidad de 
recrearse en este universo de 
fantasia, donde la vida y la 
muerte se aunan en una lucha 
eterna en pos de la simetria. 


"7V. 
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causa de sus semejanzas con el nacimienro, 
muerte y alteraciones que experimentan las so- 
ciedades de seres vivos, perfenece a la dase 
de los llamados juegos de simulacion. 

Todo el proceso del juego encaja con la teo- 
ria de automatas celulares, la cual propone 
la posibilidad de que una mdquina provista de 
las instrucciones necesarias, puede ser capaz 
de construir una copia de si misma. 

Coda una de estas maquinas seria a su vez 
capaz de construir otras, y estas cuatro se con- 
vertirian en ocho, y asi sucesivamente. 

Ahora bien, tal proceso conducing a un nu- 
mero infinite de automatas, lo cuai seria in- 
sostenible. Para evitar esta proliferation, Con¬ 
way propuso la aplicacion de unas leyes ge- 
neticas que regularan los nacimientos, muer- 
tes y sucesivas alteraciones. 


EL CICLO DE NACIMIENTO 
Y MUERTE 

Dicho juego debe jugarse teoricamente so- 
bre un tablero cuadriculado infinito. Cada una 
de estas casillas puede encontrarse en dos es- 
tados, vatio o lleno. Cada uno de estas cua- 
driculas tiene asociadas un conjunto finito de 
cuadriculas 'vecinas' que pueden tener influen 
cia sobre su estado. 

La configuracion de estados cambia a inter- 
valos temporales, en conformidad con unas re- 
glas de transition, aplicadas simultanemane- 
te a todas las cuadriculas. 

Conway eligio sus reglas, tras un periodo de 
experimentation, intentando satisfacer tres 
condiciones: 

1. No debe existir ninguna configuracion 
initial para la que se pueda demostrar facil- 
mente que su poblacion crecera ilimitadamen- 
te. 

2. Deben existir configuraciones iniciales 
que aparentemente crezcan sin iimite. 

3. Han de exisitir configuraciones inicia¬ 
les sencilias que sean capaces de crecer y cam- 
biar durante perfodos de tiempa considera¬ 
bles, antes de finalizar de una de las siguien- 
tes formas posibles: 


a) Extinguirse completamente, ya sea por 
superpoblacion o por encarecimiento. 

b) Adoptar una configuracion estable in¬ 
variable en lo sucesivo. 

c) Entrar en fase oscilatoria, donde se re- 
piten sin fin dos o mas estados. 


LAS LEYES DE CONWAY 


Las leyes geneticas elegidas por Conway, 
que son sobre las que esta basado el progra- 
ma que os ofrecemos del 'Juego de la vi- 
da', son las siguientes: 

1. Supervivencia. Cada ficha que tenga 
dos o tres fichas vecinas sobrevive y pasa a 
la siguiente generation. 

2. Fallecimiento. Cada ficha que tenga 
cuatro o mas vecinas, muere por superpobia- 
cion. Las fichas con solo una o ninguna veci¬ 
nas muere por aislamiento. 

3. Nacimientos. Cada casilla vacia adya- 
cente a exactamente tres fichas vecinas, es ca¬ 
silla generatriz. Por lo que deberd colocarse 
allt una ficha. 

Debemos hacer notar que cada ficha posee 
ocho vecinas, es decir, cuatro ortogonalmen- 
te y otras cuatro diagonalmente. 

Es imporfante darse cuenta que todos los na¬ 
cimientos y muertes ocurren simultaneamen- 
te, y constituyen en su conjunto una genera¬ 
cion, o como se las suele llamar un 'tic' o 'la¬ 
tido' de la vida de la configuaracion iniciai. 

Descubriremos, una vez iniciado el juego, 
que la poblacion experimenfa constantemen- 
te cambios insolitos, bellos e inesperados. En 
ciertos casos, la sociedad termina por extin¬ 
guirse, si bien antes de que esto suceda, de- 
beran pasar gran numero de generaciones. 

Casi todas las configuraciones iniciales ter- 
minan por alcanzar figuras estables {que Con¬ 
way llama naturalezas muertas), incapaces de 
cambio y que quedan oscilando. 

Las formaciones iniciales que no poseen $i- 
metria, tienden a ir adquiriendola, y una vez 
que esto sucede ya no puede perderse. 

Una familia hormada unicamente por dos fi¬ 
chas, se extinguiran al primer latido. 

Una formation iniciai de tres casillas mori- 
ria de inmediato a menos que una de ellas ten¬ 
ga un par de vecinas. 

Debemos hacer notar que una cadena dia¬ 
gonal aislada de fichas, por larga que esta 
sea, termina desapareciendo, ya que en ca¬ 
da latido pierde las dos fichas situadas en sus 
extremos. 

La tercera configuracion se transforma en 
un 'BLQQUE' estable en el segundo latido. 

La ultima de ellas es la mas sencilla de las 
llamadas 'FLIP-FLOPS' que son figuras os- 
cilantes de periodo dos. Conway la denomi- 
na 'intermitente'. 

Veamos ahora algunas figuras compuestas 
por cuatro fichas conectadas entre si por mo- 
vimientos de torre, denominadas tetrominos: 



El primero de ellos es como hemos visto an- 
teriormente, una naturaleza muer*a. 

Los tetrominos 2 y 3, alcanzan una configu¬ 
racion estable ai segundo latido, dicha confi¬ 
guracion estable, se denomina «colmena». 
El ultimo tetromino se convierte en colmena al 
tercer latido. 


Vamos a ver a contiriuacidn algunas de las 
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figuras mas interesantes que se pueden pre¬ 
senter a traves de las diferentes fases del jue- 
go de la vida. En el primer grafico podemos 
observar algunas de las formas esfables mas 
corrientes. Dichas formas son las fases inicia- 
les de muchas configuraciones, y no varian a 
lo largo del tiempo, a no ser que otras conri- 
guraciones se aproximen a ellas. 



Una de las figuras mas interesantes con que 
nos podemos encontrar, es el llamado desli- 
zador», formado por cinco casillas, y que po¬ 
demos ver en el grafico 2. 


Dicho deslizador, al cabo de dos latidos, se 
desplaza y queda reflejado respecto de una 
recta diagonal. Al cabo de otros dos latidos, 
se vuelve a enderezar, desplazandose una 
cuadricula digonalmente hacia abajo y hacia 
la derecha de su position inicial. 

Una vez explicadas las curiosidades mas in¬ 
teresantes del juego de la vida, pasaremos 
ahora a ver como funciona el pragrama que 
aparece al final del arficulo. 


EL PROGRAMA 

El programa consta de un bloque en Basic 
y otro en codigo maquina. El primero de ellos 
se encarga de imprimir en pantalla el menu 
de opciones que posee el juego de la vida, asi 
como todas las teclas que pueden ser utiliza- 
das en cada parte del programa. 

Las ires opciones disponibles, son las siguien- 
tes: Creadon de pantalla, Pulsaciones y Pan¬ 
talla aleatoria. 

La primera de ellas nos ofrece la posibilidad 
de crear nuestra propia pantalla utilizando las 
teclas de cursor para desplazarnos por la pan 
taila. 

Pulsando la lecla «P» podremos pintar uti¬ 
lizando los cursores y pulsando la teda «0» 
podremos borrar o desplazarnos por la pan¬ 
talla sin pintar. 

Una vez hayamos finalizado nuestra pan¬ 
talla bastard con pulsar la tecla «COPIA» pa¬ 
ra que empiecen a producirse los latidos. 

Cuando estemos en la fase de pulsaciones, 
tendremos las opciones de parar las pulsacio¬ 
nes, pulsando la tecla «P» o bien retornar el 
menu principal pulsando la tecla «B». 

Cuando nos encontremos en «PAU$A», 
podremos volver a iniciar los latidos pulsan¬ 
do la tecla «E» o bien salvar en disco o cinta 
la panialia actual, pulsando la tecla «S». 


La segunda de las opciones con la que nos 
encontramos, es la de entrar directamente a 
la fase de pulsaciones. Logicamente si utiliza- 
mos esta opcion cuando no tengamos ningu- 


na pantalla en memoria, no se producira nin- 
gun efecto. As! pues, esta opcion servira cuan¬ 
do estando en la fase de pulsaciones se haya 
vuelto al menu y se desee retornar a las pul¬ 
saciones. 

Por ultimo, tenemos la opcion de crear una 
pantalla aleatoria, Eligiendo esta opcion, nues- 
tro Amstrad creara una pantalla al azar y 
despues de esto pasara directamente a ia fa¬ 
se de pulsaciones. 

Veamos ahora cuales son los pasos que rea- 
liza el programa en codigo maquina. 

En primer lugar, se crea un buffer de 1.200 
bytes, sobre el cual se producen todos los cal- 
culos para camprobar cuales son las celulas 
que sobreviven, nacen o mueren. 

Dentro de ese buffer de trabajo, cada bit 
contiene la information de una casilla, y pue- 
de tener dos estados: 1 indica que la celula 
esta viva y 0 indicara que dicha celula esta 
muerta. 

Asi pues, en cada latido se deben compro- 
bar cada una de los bits que componen ese 
buffer de 1.200 bytes, por lo tanto deberemos 
tratar 1.200*8 bits. 

Como hemos dicho anteriormente las reglas 
sobre las que se basa el juego contemplan las 
ocho casilias inmediatamente proximas a la 
que se esta estudiando. 

De este modo, cuando deseemos mirar lo 
que ocurriria con un bit en concreto, debere¬ 
mos mirar cada una de los ocho bits que lo ro- 
dean. 

Si por ejemplo deseamos mirar el bit 4 de 
un byte cualquiera dentro del buffer, debere¬ 
mos mirar los siguientes bits de los bytes que 
se indican: 

a b c 
d x e 
f g h 

Asi pues, teniendo en cuenta que el nume- 
ro de bytes que contiene cada fila del buffer 
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es 10 y si cargamos en el registro indexado 
IX la posicion de memoria en la cual esta el 
bit que intentamos investigar, los bits que de- 
beremos chequear seran los siguienfes: 


a. bit 3 de (1X10) 

b. bit 4 de (IX-10) 

c. bit 5 de (IX 10) 


d. bit 3 de (IX + 0) 

e. bit 5 de (IX+Oj 

f. bit 3 de (IX+ 10) 

g. bit 4 de (IX+10) 

h. bit 5 de (IX+10) 

De esta forma cuando uno de estos bits es¬ 
te puesto a uno, llamamos a una rutina que 
se encarga de incrementar el contador que nos 


indicard finalmente cuantos de esos ocho bits 
estdn puestos a uno. 

Asi pues, una vez revisados cada uno de los 
bits vecinos, tomaremos el valor de dicho con¬ 
tador, y de esta forma se podra decidir, de 
acuerdo con las reglas indicadas anteriormen- 
te, si ese bit debe sobrevivir o morir en caso 
de que este vivo, o bien si debe nacer en el 
caso de que este muerto. 


* REM JUEfi® DE LA VIDA 
2 REM ALBERTO SUNER 
JO MEMORY J.3FFF 

20 MODE 1 1 INK 0,13: INK 1,0: U*C 2,20 
:INK 3,1:BORDER 13 
30 LQAD-V1DAB1N",feAOOO 
40 MODE 1 

50 PEN 1:LOCATE 13, liPRINT “JUEGO D 
E LA VIDA" 

60 PEN 2:LOCATE 5,2:PRINT "MENU":PE 
N 3 

70 LOCATE 3,4:PRINT "1. 

CREACION PANTALLA" 

80 LOCATE S,5:PRINT “2. 

PULSACIONES" 

90 LOCATE 5,6:PRINT “3. 

PANTALLA ALEATORIA" 

100 PEN 2:LOCATE 5,8sPRlNT ‘CREAC1Q 
N DE PANTALLA” 

<10 PEN 3:LOCATE 5,10:PRINT "CURSOR 

ES.. MUEVEN PUNTO" 

120 LOCATE S,11:PRINT "CQPIA. 

. . LATIDQS'” 

<30 LOCATE S,121PRINT “P. 

.. PINTAR" 

<40 LOCATE 5,13:PRINT "Q. 

.. BQRRAR" 

ISO LOCATE 5, 14:PRINT "L.. 

.. CARBA PAPTALLA" 

160 LOCATE 3,ISsPRINT "B. 

.. MENU" 

170 PEN 2:LOCATE S,17:PRINT “LATIDQ 
S*:PEN 3 

ISO LOCATE 3,19:PRINT "P....... 

.. PAUSA" 

190 LOCATE 3,20:PRINT "B. 

.. MENU" 

200 PEN 2:LOCATE 5,22:PRINT "PAUSA- 
:PEN 3 

210 LOCATE 5,24:PRINT "S... 

.. SALVA PANTALLA" 

220 LOCATE S,25:PRINT "E. 

, SEBUIR CON LATIDOS" 

230 IF INKEY(64)«0 THEN 330 
240 IF INKEV<65>=0 THEN 390 
250 IF INKEY<37)-0 THEN 270 
260 SOTO 230 
270 MODE 2 

290 FOR N-L9000 TO 1,9200 
290 POKE N,INT<RND*236) 

300 NEXT 

310 POKE &A553,0:POKE *,A534,0 

320 BOSUB 430 

330 CALL XiA134 

340 GOTO 40 

350 MODE 2 

360 BOSUB 430 

170 CALL ItAOOO 

3BO GOTO 40 

390 MODE 2 

400 BOSUB 430 

410 CALL 6A134 

420 BOTO 40 

430 LOCATE 30,25:PRINT “LATIDOS-OOO 
00" 

440 RETURN 


10 REM JUEBO DE LA VIDA 
20 REM PROGRAMA CARGADQR 
30 FOR N-4.A000 TO LA5A3 
40 READ A: SUMA : SUMA+A 
50 POKE N,A 
60 NEXT 

70 IF SUMA<>173577 THEN PRINT "ERRO 
R EN DATAS" 

BO DATA 33,0,0,34,83,165,33 
90 DATA 0,144,17,1,144,1,176 
IOO DATA 4,34,0,237,176,33,165 
110 DATA 144,14,6,165,62,54,205 
120 DATA 10,1B7,192,62,36,205,30 
130 DATA 1B7,40,3,205,SB,165,175 
140 DATA 205,30,1B7,40,3,205,238 
150 DATA 160,62,2,205,30,1B7,40 
160 DATA 3,205,252,160,62,8,205 
170 DATA 30,187,40,3,205,7,161 
180 DATA 62,1,205,30,187,40,3 
190 DATA 205,29,161,62,27,205,30 
200 DATA 187,40,4,175,50,9,165 
210 DATA 62,34,205,30,1B7,40,5 
220 DATA 62,1,50,9,165,205,116 
230 DATA 160,62,9,205,30,187,194 
240 DATA 52,161,24,163,42,6,165 
250 DATA 58,8,165,254,0,32,2 
260 DATA 203,198,254,1,32,2,203 
270 DATA 206,254,2,32,2,203,214 
290 DATA 254,3,32,2,203,222,254 
290 DATA 4,32,2,203,230,254,5 
300 DATA 32,2,203,238,254,6,32 
310 DATA 2,203,246,254,7,32,2 
320 DATA 203,254,205,57,164,58,9 
330 DATA 165,167,32,1,201,42,6 
340 DATA 163,58,8,163,254,0,32 
350 DATA 2,203,134,254,1,32,2 
360 DATA 203,142,254,2,32,2,203 
370 DATA 150,254,3,32,2,203,150 
390 DATA 254,4,32,2,203,166,254 
390 DATA 5,32,2,203,174,254,6 
400 OATA 32,2,203,182,254,7,32 
410 DATA 2,203,190,205,57,164,201 
420 DATA 42,6,165,17,10,0,55 
430 DATA 63,237,82,34,6,165,201 
440 DATA 42,6,163,17,10,0,25 
450 DATA 34,6,165,201,58,8,165 
460 DATA 60,50,B,165,254,8,192 
470 DATA 42,6,163,43,34,6,165 
490 DATA 175,50,8,165,201,58,8 
490 DATA 163,61,30,B,165,254,255 
500 DATA 192,42,6,165,33,34,6 
310 DATA 163,62,7,50,8,163,201 
320 DATA 33,0,149,17,1,149,1 
530 DATA 88,2,54,0,237,176,33 
540 DATA 0,149,221,33,0,144,1 
550 DATA 88,2,221,94,0,22,0 
560 DATA 203,123,40,11,205,62,162 
570 DATA 203,14,164,204,22,164,24 
580 DATA 9,205,62,162,205,9,164 
590 DATA 204,22,164,22,0,203,115 
600 DATA 40,11,205,119,162,205,14 
610 DATA 164,204,25,164,24,9,205 
620 DATA 119,162,205,9,164,204,25 
630 DATA 164,22,0,203,107,40,11 
640 DATA 205,176,162,205,14,164,204 
650 DATA 28,164,24,9,205,176,162 
660 DATA 205,9,164,204,2B.164,22 
670 DATA o f ^03,99,40,11,205,233 
6R0 DATA 162,205.14.164.204.31.164 
690 DATA 24,9,203,233,162,705,9 
700 DATA 164,204,31,164,22,0,203 
710 DATA 91,40,11,205,34,163,205 
720 DATA 14,164,204,34,164,24,9 
730 DATA 205,34,163,205,9,164,204 
740 DATA 34,164,22,0,203,83,40 
750 DATA 11,205,91,163,205,14,164 
760 DATA 204,37,164,24,9,205,91 


770 DATA 163,205,9,164,204,37,164 
780 DATA 22,0,203,75,40,11,205 
790 DATA 148,163,205, 14,164,204,40 
800 DATA 164,24,9,205,148,163,205 
810 DATA 9,164,204,40,164,22,0 
820 DATA 203,67,40,11,205,205,163 
B70 DATA 205,14,164,204,43,164,24 
040 DATA 9,205,205,163,205,9,164 
850 DATA 204,43,164,221,35,35,11 
860 DATA 120,177,194,75,161,205,46 
B70 DATA 164,205,B5,165,62,27,205 
0BO DATA 30,187,196,10,165,62,54 
090 DATA 205,30,107,202,52,161,201 
900 DATA 221,203,255,70,196,7,164 
910 DATA 221,203,0,118,196,7,164 
920 DATA 221,203,9,70,196,7,164 
930 DATA 221,203,10,126,196,7,164 
940 DATA 221,203,10,118,196,7,164 
950 DATA 221,203,246,118,196,7,164 
960 DATA 221,203,246,126,196,7,164 
970 DATA 221,203,245,70,196,7,164 
980 DATA 201,221,203,0,126,196,7 
990 DATA 164,221,203,0,110,196,7 
IOOO DATA 164,221,203,246,126,196,7 
1010 DATA 164,221,203,246,118,194,7 
1020 DATA 164,221,203,246,110,196,7 
1070 DATA 144,221,203,10,126,196,7 
1040 DATA 164,221,203,10,118,196,7 
1050 DATA 164,221,203,10,110,196,7 
1040 DATA 164,201,221,203,0,118,196 
1070 DATA 7,164,221,203,0,102, 196 
1080 DATA 7,164,221,203,246,118,196 
1090 DATA 7,164,221,203,246,110,196 
1100 DATA 7,164,221,203,246,102,196 
1110 DATA 7,164,221,203,10,1 IB, 196 
1120 DATA 7,164,221,203,10,110,196 
1170 DATA 7,164,221,203,10,102,196 
1140 DATA 7,164,201,221,203,0,110 
1150 DATA 196,7,164,221,203,0,94 
1160 DATA 196,7,164,221,203,246,110 
1170 DATA 196,7,164,221,203,246,102 
1180 DATA 196,7,164,221,203,246,94 
1190 DATA 196,7,164,221,203,10,110 
1200 DATA 196,7,164,221,203,10,102 
1210 DATA 196,7,164,221,203,10,94 
1220 DATA 196,7,164,201,221,203,0 
1230 DATA 102,196,7,164,221,203,0 
1240 DATA 06,196,7,164,221,203,246 
1250 DATA 102,196,7,164,221,203,246 
1260 DATA 94,196,7,164,221,203,246 
1270 DATA 86,196,7,164,221,203,10 
1280 DATA 102,196,7,164,221,203,10 
1290 DATA 94,196,7,164,221,203,10 
l^OO DATA 86,196,7,164,201,221,207 
1310 DATA 0,94,196,7,164,221,203 
1320 DATA 0,78,196,7,164,221,203 
1730 DATA 246,94,196,7,164,221,203 
1740 DATA 246,86,196,7,164,221,203 
1750 DATA 246,78,196,7,164,221,203 
1360 DATA 10,94,196,7,164,221,203 
1370 DATA 10,06,196,7,164,221,203 
1380 DATA 10,7B,196,7,164,201,221 
1390 DATA 207,0,06,196,7,164,221 
1400 DATA 203,0,70,196,7,164,221 
1410 DATA 203,246,06,196,7,164,221 
1420 DATA 203,246,70,196,7,164,221 
1430 DATA 203,246,70,196,7,164,221 
1440 DATA 203,10,86,196,7,164,221 
1450 DATA 203,10,78,196,7,164,221 
1460 DATA 203,10,70,196,7,164,201 
1470 DATA 221,203,0,70,196,7,164 
1480 DATA 221,203,1,126,196,7,164 
1490 DATA 221,203,246,78,196,7,164 
1500 DATA 221,203,246,70,196,7,164 
1510 DATA 221,203,247,126,196,7,164 
1520 DATA 221,203,10,7B,196,7,164 
1530 DATA 221,203,10,70,196,7,164 
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1540 DATA 221,203,11,126,194.,7,164 
1550 DATA 201,201,20,201,122,254,3 
1560 DATA 200,201,122,254,2,200,254 
1570 DATA 3,200,201,203,254,201,203 
1300 DATA 246,201,203,238,201,203,2 
30 

1590 DATA 201,203,222,201,203,214,2 
01 

1600 DATA 203,206,201,203,198,201,3 

3 

1610 DATA 0,149,17,0,144,1,88 
1620 DATA 2,237,176,33,0,64,17 
1630 DATA 1,64,1,0,64,54,0 
1640 DATA 237,176,205,77,164,205,19 

5 

1650 DATA 164,201,17,0,64,33,0 
1660 DATA 144,6,60,197,237,83,182 
1670 DATA 164,6,10,175,203,126,196 
1680 DATA 184,164,18,175,19,203,118 
1690 DATA 196,184,164,18,175,19,203 
1700 DATA 110,196,184,164,18,175,19 
1710 DATA 203,102,196,184,164,18,17 
5 

1720 DATA 19,203,94,196,184,164,16 
1730 DATA 175,19,203,06,196,184,164 
1740 DATA 18,175,19,203,78,196,18', 
1750 DATA 164,18,175,19,203,70,196 
1760 DATA 184,164,18,19,35,16,189 
1770 DATA 229,42,1B2,164,1,80,0 
1780 DATA 237,176,33,80,0,25,235 
1790 DATA 225,193,16,164,237,B3,182 
1800 DATA 164,201,0,0,203,247,203 
1810 DATA 255,203,239,203,231,203,2 
23 

1820 DATA 201,33,1,1,17,0,64 
1830 DATA 213,235,33,176,191,66,22 
1840 DATA 0,29,25,17,80,0,25 
1850 DATA 16,253,221,225,6,192,24 
I860 DATA 21,124,230,56,254,56,40 
1870 DATA 6,124,198,B,103,24,8 
1880 DATA 17,80,0,124,238,56,103 
1890 DATA 25,197,229,6,80,221,126 
1900 DATA 0,119,221,35,35,16,247 
1910 DATA 225,193,16,218,201,0,144 
1920 DATA 0,0,62,58,205,30,187 
1930 DATA 192,62,60,205,30,187,194 
1940 DATA 26,165,24,240,6,4,33 
1950 DATA 79,165,17,0,169,205,140 
1960 DATA 188,33,0,149,17,88,2 
1970 DATA 1,0,0,62,2,205,152 
1980 DATA 188,205,143,188,205,146,1 
SB 

1990 DATA 201,6,4,33,79,165,17 
2000 DATA 0,169,205,119,188,33,0 
2010 DATA 144,205,131,1B8,205,122,1 
BB 

2020 DATA 201,86,73,68,65,0,0 
2030 DATA 38,38,46,25,205,117,187 
2040 DATA 42,83,165,35,34,83,165 
2050 DATA 55,17,16,39,35,62,47 
2060 DATA 60,237,82,48,251,205,152 
2070 DATA 165,17,232,3,60,237,82 
2080 DATA 48,251,205,152,165,17,100 
2090 DATA 0,60,237,82,48,251,205 
2100 DATA 152,165,17,10,0,60,237 
2110 DATA 82,48,251,205,152,165,133 
2120 DATA 205,152,165,201,205,90,18 
7 

2130 DATA 62,47,32,1,35,25,35 
2140 DATA 201,0,0,0,0,0,0 
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10 jJUEGO 

DE LA 

VIDA 

20 

ORG 

#A000 

30 

LD 

HL.O 

40 

LD 

(LAT1D) ,HL 

50 

LD 

HL,#9000 

60 

LD 

0£,#9001 

70 

LD 

DC,1200 

80 

LD 

(HL),0 

90 

LDIR 


100 

LD 

HL, #90A5 

110 

LD 

(POSCUR),HL 

120 TECs 

LD 

A,54 

130 

CALL 

#88 IE 

140 

RET 

NZ 

150 

LD 

A, 36 

160 

CALL 

*881E 

170 

JR 

Z,TECLO 

180 

CALL 

LOAD 

190 TECLO: 

XOR 

A 

200 

CALL 

#BB1E 

210 

JR 

Z.TECLl 

220 

CALL 

UP 

230 TECLlS 

LD 

A,2 

240 

CALL 

SBBtE 

230 

JR 

Z,TECL2 

260 

CALL 

DOWN 

270 TECL2s 

LD 

A ,8 

280 

CALL 

•BB1E 

290 

JR 

Z,T£CL3 

300 

CALL 

LEFT 

310 TECL3i 

LD 

A,i 

320 

CALL 

#BB1E 

330 

JR 

Z.TECL4 

340 

CALL 

RIGHT 

350 TECL4: 

LD 

A, 27 

360 

CALL 

•BB1E 

370 

JR 

Z.TECLS 

380 

XOR 

A 

390 

LD 

(PINTI) ,A 

400 TECLSl 

LD 

A,34 

410 

CALL 

•SB IE 

420 

JR 

Z.TECL 6 

430 

LD 

A,1 

440 

LD 

(PINTI),A 

450 TECL 61 

CALL 

P1NBU 

460 

LD 

A, 9 

470 

CALL 

•BB 1 E 

480 

JP 

NZ,XNIC 

490 

JR 

TEC 

500 PINBUs 

LD 

HL, (POSCUR) 

510 

LD 

A,(CONBY) 

520 

CP 

0 

530 

JR 

NZ.BYTt 

540 

SET 

0, (HL) 

550 BYT1x 

CP 

1 

560 

JR 

NZ.BYT2 

570 

SET 

1, (HL) 

580 BYT2: 

CP 

2 

590 

JR 

NZ.BYT3 

600 

SET 

2, (HL) 

610 BYT3x 

CP 

3 

620 

<ilR 

NZ,BYT4 

630 

SET 

3, (HL) 

640 BYT4S 

CP 

4 

650 

JR 

NZ,BYT5 

660 

SET 

4, (HL) 

670 BYT5: 

CP 

5 

680 

JR 

NZ.BYT 6 

690 

SET 

5,(HL) 

700 8 YT 61 

CP 

6 

710 

JR 

NZ,BYT7 

720 

SET 

6 , (HL) 

730 BYT7i 

CP 

7 

740 

JR 

NZ,BYT 8 

750 

SET 

7,(HL) 

760 BYTB: 

CALL PINTU 

770 

LD 

A,(PINTI) 

780 

AND 

A 

790 

JR 

NZ,BQRRA 

800 

RET 


810 BORRAx 

LD 

HL,(POSCUR) 

020 

LD 

A,(CONBY) 

630 

CP 

0 

840 

JR 

NZ.BITO 

050 

RES 

0, (HL) 

B60 B1T0: 

CP 

1 

870 

JR 

NZ.BITl 


880 

RES 

1,(HL) 

890 BITlx 

CP 

2 

900 

JR 

NZ,BIT2 

910 

RES 

2,(HL) 

920 B1T2X 

CP 

3 

930 

JR 

N2,BIT3 

940 

RES 

3,(HL) 

950 BIT3: 

CP 

4 

960 

JR 

NZ.B1T4 

970 

RES 

4, (HL) 

900 BIT4: 

CP 

5 

990 

JR 

NZ,BIT5 

1000 

RES 

S, CHL) 

1010 BXT5: 

CP 

6 

1020 

JR 

NZ.BIT 6 

1030 

RES 

6 , (HL) 

1040 BIT 6 : 

CP 

7 

1050 

JR 

M2,BITS 

1060 

RES 

7,(HL) 

1070 BITS: 

CALL 

PINTU 

1080 

RET 


1090 UP: 

LD 

HL,(POSCUR) 

1 lOO 

LD 

DE, 10 

1110 

SCF 


1120 

CCF 


1130 

SBC 

HL, DF 

1140 

LD 

(POSCUR),HL 

1150 

RET 


1160 DOWN: 

LD 

HL, (POSCUR) 

1170 

LD 

DE, 10 

1 180 

ADD 

tl_,DE 

1190 

LD 

(POSCUR),HL 

1200 

RET 


1210 LEFT: 

LD 

A,(CONBY) 

1220 

INC 

A 

1230 

LD 

(CONBY),A 

1240 

CP 

8 

1250 

RET 

NZ 

1260 LEFlx 

LD 

HL,(POSCUR) 

1270 

DEC 

HL 

1280 

LD 

(POSCUR),HL 

1290 

XOR 

A 

1300 

LD 

(CONBY) ,A 

1310 

RET 


1320 RIGHT: 

LD 

A,(CONBY) 

1330 

DEC 

A 

1340 

LD 

(CONBY),A 

1350 

CP 

255 

1360 

RET 

NZ 

1370 

LD 

HL,(POSCUR) 

1380 

INC 

HL 

1390 

LD 

(P0SCUJU,HL 

1400 

LD 

A,7 

1410 

LD 

(CONBY),A 

1420 

RET 


1430 ; 



1440 INJC: 

LD 

HL,#9500 

1450 ; 



1460 

LD 

DE,*9501 

1470 

LD 

BC,600 

1400 

LD 

(HL) ,0 

1490 

LDIR 


1500 

LD 

HL,#9500 

1510 

LD 

IX,#9000 

1520 

LD 

BC, 600 

1530 MlRBUx 

LD 

E,(IX) 

1540 

LD 

D,0 

1550 

BIT 

7»E 

1560 

JR 

Z,PASBI1 

1570 

CALL 

MIR7 

1500 

CALL 

HIRBIT 

1590 

CALL 

Z.PQN7 

1600 

JR 

PASB12 

1610 PASBIli 

CALL 

MIR7 

1620 

CALL 

. MIRBI1 

1630 

CALL 

, Z,P0N7 

1640 PASBI2: 

i LD 

0,0 

1650 

BIT 

6 ,£ 

1660 

JR 

Z,PASB13 

1670 

CALL 

MIR 6 

1680 

CALL NIRBIT 

1690 

CALL Z,P0N6 

1700 

JR 

PASB14 

1710 PASBI31 

CALL HIR 6 

1720 

CALL MIRBI 1 

1730 

CALL Z.P0N6 

1740 PASBI4: 

: LD 

D,0 
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1750 


BIT 

5,E 

1760 


JR 

2,PASBI5 

1770 


CALL 

MIR5 

17B0 


CALL 

MIRBIT 

1790 


CALL 

2.PDN5 

1B00 


JR 

PASBI6 

1810 

PA9BI5t 

CALL 

MIR5 

1820 


CALL 

MIRBI1 

1030 


CALL 

2,PDN5 

1840 

PASBI6I 

LD 

D,0 

1850 


BIT 

4,E 

1860 


JR 

2,PASBI7 

1870 


CALL 

MIR4 

1880 


CALL 

MIRBIT 

1890 


CALL 

2 p PDN4 

1900 


JR 

PASBI8 

1910 

PASBI7I 

CALL 

MIR4 

1920 


CALL 

MIRBI 1 

1930 


CALL 

Z , PQN4 

1940 

PASBIBi 

LO 

0,0 

1950 


BIT 


1960 


JR 

2,PASBI9 

1970 


CALL 

MIR3 

1980 


CALL 

MIRBIT 

1990 


CALL 

2,PQN3 

2000 


JR 

PASBI0 

2010 

PASBI9I 

CALL 

MIR3 

2020 


CALL 

MIRBI1 

2030 


CALL 

Z,PQN3 

2040 

PASBIOi 

LO 

D,0 

2050 


BIT 


2060 


JR 

l f PASBI1 

2070 


CALL 

MIR2 

2080 


CALL 

MIRBIT 

2090 


CALL 

Z,PQN2 

2100 


JR 

PASB12 

2110 

PASBUi 

CALL 

MIR2 

2120 


CALL 

MIRBI1 

2130 


CALL 

2 p PQN2 

2140 

PASB12J 

LD 

D,0 

2150 


BIT 


2160 


JR 

Z,PASS 13 

2170 


CALL 

MIR 1 

2180 


CALL 

MIRBIT 

2190 


CALL 

2,P0N1 

2200 


JR 

PASBI4 

2210 

PASB13: 

CALL 

MIR1 

2220 


CALL 

MIRBI1 

2230 


CALL 

Z,PQN1 

2240 

PASBI4; 

LD 

0,0 

2250 


BIT 

0,E 

2260 


JR 

Z,PASB15 

2270 


CALL 

MIRO 

2280 


CALL 

MIRBIT 

2290 


CALL 

Z,PDNO 

2300 


JR 

PASBI6 

2310 

PASB15: 

CALL 

MIRO 

2320 


CALL 

MIRBI1 

2330 


CALL 

Z,PQNO 

2340 

PASBIA: 

INC 

IX 

2350 


INC 

HL 

2360 


DEC 

BC 

2370 


LD 

A, B 

2380 


□R 

C 

2390 


JP 

NZ,MIRBU 

2400 


CALL 

PINTA 

2410 


CALL 

INCLAT 

2420 


LD 

A, 27 

2430 


CALL 

#BB1E 

2440 


CALL 

NZ,ESPER 

2450 


LD 

A,54 

2460 


CALL 

4BB1E 

2470 


JP 

Z,INIC 

2480 


RET 


2490 

MIR7: 

BIT 

0,(IX-1) 

2500 


CALL 

NZ,INCCQN 

2510 


BIT 

6,(IX+O) 

2520 


CALL 

NZ,INCCQN 

2530 


BIT 

0,(IX+9) 

2540 


CALL 

NZ,INCCQN 

2550 


BIT 

7,(IX+10) 

2560 


CALL 

NZ,INCCQN 

2570 


BIT 

6,(IX+10) 

2580 


CALL 

NZ,INCCQN 

2590 


BIT 

6,(IX-10) 

2600 


CALL 

NZ,INCCQN 

2610 


BIT 

7,<IX-10) 

2620 


CALL 

NZ,INCCQN 

2630 


BIT 

0,<IX-11) 


2640 


CALL 

NZ,INCCQN 

3250 

BIT 

2,(IX-10) 

2650 


RET 


3260 

CALL 

NZ,INCCQN 

2660 

MIR&i 

BIT 

7,(IX+O) 

3270 

BIT 

4,(IX+10) 

2670 


CALL 

NZ,INCCQN 

3280 

CALL 

NZ,INCCON 

2680 


BIT 

5, <IJ£+0) 

3290 

BIT 

3,(IX+10) 

2690 


CALL 

NZ,INCCQN 

3300 

CALL 

NZ,INCCQN 

2700 


BIT 

7,(IX-10) 

3310 

BIT 

2, (IX + 10) 

2710 


CALL 

NZ,INCCQN 

3320 

CALL 

NZ,INCCON 

2720 


BIT 

6, (IX-10) 

3330 

RET 


2730 


CALL 

NZ,INCCQN 

3340 MIR2t 

BIT 

3, (IX+O) 

2740 


BIT 

S,(IX-10) 

3350 

CALL 

NZ,INCCQN 

2750 


CALL 

NZ,INCCQN 

3360 

BIT 

1,(IX+O) 

2760 


BIT 

7,(IX+IO) 

3370 

CALL 

NZ,INCCON 

2770 


CALL 

NZ,INCCQN 

3380 

BIT 

3,(IX-10) 

2780 


BIT 

6,(IX+10) 

3390 

CALL 

NZ,INCCQN 

2790 


CALL 

NZ,INCCQN 

3400 

BIT 

2,(IX-10) 

2800 


BIT 

5,(IX+IO) 

3410 

CALL 

NZ, INCCQN 

2810 


CALL 

NZ,INCCQN 

3420 

BIT 

1,(IX-10) 

2820 


RET 


3430 

CALL 

NZ,INCCON 

2830 

MIRSs 

BIT 

6,(IX+O) 

3440 

BIT 

3,(IX+10) 

2840 


CALL 

NZ,INCCQN 

3450 

CALL 

NZ,INCCON 

2850 


BIT 

4,(IX+O) 

3460 

BIT 

2,(IX+10) 

2860 


CALL 

NZ,INCCQN 

3470 

CALL 

NZ,INCCQN 

2870 


BIT 

6, (IX-10) 

3480 

BIT 

1,(IX+10) 

2880 


CALL 

NZ,INCCQN 

3490 

CALL 

NZ,INCCQN 

2890 


BIT 

5,(IX-10) 

3500 

RET 


2900 


CALL 

NZ,INCCQN 

3510 MIRls 

BIT 

2,(IX+O) 

2910 


BIT 

4, (IX-10) 

3520 

CALL 

NZ,INCCQN 

2920 


CALL 

NZ,INCCQN 

3530 

BIT 

0,(IX+O) 

2930 


BIT 

6, (IX+10) 

3540 

CALL 

NZ,INCCQN 


2940 


CALL 

NZ,INCCQN 

3550 

BIT 

2,(IX-10) 

2950 


BIT 

5,(IX+IO) 

3560 

CALL 

NZ,INCCON 

2960 


CALL 

NZ,INCCQN 

3570 

BIT 

1<(IX-10) 

2970 


BIT 

4,(IX+10) 

3580 

CALL 

NZ,INCCON 

2980 


CALL 

NZ,INCCQN 

3590 

BIT 

0,(IX-10) 

2990 


RET 


3600 

CALL 

NZ,INCCON 

3000 

MIR4: 

BIT 

5,(IX+O) 

3610 

BIT 

2,(IX+10) 

3010 


CALL 

NZ,INCCON 

3620 

CALL 

NZ,INCCON 

3020 


BIT 

3,<IX+0) 

36^0 

BIT 

1,(IX+10) 

3030 


CALL 

NZ,INCCQN 

3640 

CALL 

NZ,INCCON 

3040 


BIT 

5,<IX-10) 

3650 

BIT 

0,(IX+10) 

3050 


CALL 

NZ,INCCON 

3660 

CALL 

NZ,INCCON 

3060 


BIT 

4,(IX-10) 

*<670 

RET 


3070 


CALL 

NZ,INCCON 

3680 MIRO: 

BIT 

1,(IX+O) 

3080 


BIT 

3,(IX-10) 

3690 

CALL 

NZ,INCCQN 

3090 


CALL 

NZ,INCCON 

37nn 

BIT 

7,(IX+1) 

3100 


BIT 

5,(IX+10) 

3710 

CALL 

NZ,INCCQN 

31 10 


CALL 

NZ,INCCON 

3720 

BIT 

1,(IX-10) 

3120 


BIT 

4,(IX+10) 

3730 

CALL 

NZ,INCCQN 

3130 


CALL 

NZ,INCCQN 

374^ 

BIT 

0 ,<ix-io> 

3140 


BIT 

3,(IX+10) 

3750 

CALL 

NZ,INCCQN 

3150 


CALL 

NZ,INCCON 

7760 

BIT 

7,(IX—9) 

3160 


RET 


7770 

CALL 

NZ,INCCON 

3170 

MIR3: 

BIT 

4,(IX+O) 

3780 

PIT 

1,(IX+10) 

3180 


CALL 

NZ,INCCQN 

7790 

CALL 

NZ,INCCQN 

3190 


BIT 

2,(IX+O) 

7800 

BIT 

0,(IX+10) 

3200 


CALL 

NZ,INCCQN 

7810 

CALL 

NZ,INCCQN 

3210 


BIT 

4,(IX-10) 

7020 

BIT 

7,CIX+11) 

3220 


CALL 

NZ,INCCQN 

7830 

CALL 

NZ,INCCON 

3230 


BIT 

3,(IX-10) 

3840 

RET 


3240 


CALL 

NZ,INCCON 

3850 

RET 
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3860 INCCON: 

INC D 

7870 

RET 

3880 MIRBI1: 

LO A,D 

3890 

CP 3 

7900 

RET Z 

3910 

RET 

3920 MIRBIT: 

LD A,D 

3970 

CP 2 

3940 

RET Z 

7950 

CP 3 

3960 

RET Z 

3970 

RET 

3980 P0N7: 

SET 7,<HL> 

T 990 

RET 

4000 P0N6: 

SFT 6, (HL) 

4010 

RET 

4020 P0N5: 

SET 5,(HL) 

4070 

RET 

4040 PQN4: 

SFT 4,<HL> 

4050 

RET 

4060 PQN3: 

SET 3, (HL ) 

4070 

RET 

4080 PDN2: 

SET 2, (HL ) 

4090 

RET 

4100 PON 1; 

SET 1,(HL) 

4110 

RET 

4120 PONO: 

SET 0,(HL) 

4170 

RET 

4140 PINTA: 

LD HL,,H9500 

4150 

LD DE,#9000 

4160 

LD SC,600 

4170 

LDIR 

4180 PINTU: 

LD HL, #4000 

4190 

LD DE,#4001 

4200 

LD BC,##000 

42 1° 

LD (HL),0 

4220 

LDIR 

4270 

CALL MIRA 

4240 

CALL IMPRE 

4250 

RET 

4260 MIRA: 

LD DE, #4000 

4270 

LD HL,#9000 

4280 

LD P,60 

4290 LLL2: 

PUSH EC 

4700 

LD (POSIN),DE 

4310 

LD B,10 

4320 LLL1: 

XOR A 

4330 

BIT 7,(HL) 

4340 

CALL NZ,P0N67 

4350 

LD (DE),A 

4360 

XOR A 

4370 

INC DE 

4780 

PIT 6,(HL> 

4790 

CALL N7,PONi7 

4400 

LD (DE),A 

4410 

XOR A 

4420 

INC DE 

4470 

PIT 5, (HI.) 

4440 

CALL NZ.PON67 

4450 

LD (DE),A 

4460 

XOR A 

4470 

INC DE 

4480 

BIT 4, (HL) 

4490 

CALL NZ,P0N67 

4500 

LD (DE),A 

4510 

XOR A 

4520 

INC DE 

4530 

BIT 3,(HL) 

4540 

CALL NZ, P0N67 

4550 

LD (DE),A 

4560 

XOR A 

4570 

INC DE 

4580 

BIT 2,(HL) 

4590 

CALL NZ,P0N67 

4600 

LD (DE),A 

4610 

XOR A 

4620 

INC DE 

4670 

BIT 1,(HL) 

4640 

CALL NZ,P0N67 

4650 

LD (DE),A 

4660 

XQR A 

4670 

INC DE 

4680 

BIT 0, (HL) 

4690 

CALL NZ,PQN67 

4700 

LD (DE),A 

4710 

INC DE 

4720 

INC HL 

4770 

DJNZ LLL1 


4740 


PUSH 

HL 

4750 


LD 

HL,(POSIN) 

4760 

4770 


LD 

LDIR 

BC, 80 

4780 


LD 

HL, BO 

4790 


ADD 

HL, DE 

4800 


EX 

DE, HL 

4810 


POP 

HL 

4820 


PDP 

BC 

4830 


DJNZ 

LLL2 

4840 

4850 

4860 

» 

LD 

RET 

(POSIN),DF 

4870 

4880 

POSIN: 

» 

DEES 

2 

4890 

PON67: 

SET 

6, A 

4900 


SET 

7,A 

4910 


SET 

5,A 

4920 


SET 

4,A 

4930 

4940 


SET 

RET 

3,A 

4950 

:RUTINA 

-IMPRESION 

4960 

;H=POSIGIQN- 

VERTICAL-INII 


4770 ; L -PQS T CI ON- HQRI ZONT AL -1N1C10--1 
4980 ;DE~DIRECCIDN-GRAFICO 
4990 j 


5000 

IMPRE: 

LD 

HL,#0101 

5010 


LD 

DE,#4000 

5020 


PUSH 

DE 

5030 


EX 

DE, HL 

5040 


LD 

HL,#C00O~8O 

5050 


LD 

B,D 

5060 


LD 

D, 0 

5070 


DEC 

E 

5080 


ADD 

HL, DE 

5090 


LD 

DE, 80 

5100 

S_BUC: 

ADD 

HL, DE 

5110 


DJNZ 

S BUC 

5120 


POP 

IX 

5170 


LD 

B, 200 

5140 


JR 

CQLOC 

5150 

P_BUC: 

LD 

A, H 

5160 


AND 

56 

5170 


CP 

56 

5180 


JR 

2,P_PAS 

5190 


LD 

A, H 

5200 


ADD 

A,B 

5210 


LD 

H, A 

5220 


JR 

CQLOC 

5270 

P_PAS: 

LD 

DE,0080 

5240 


LD 

A, H 

5250 


XQR 

56 

5260 


LD 

H, A 

5270 


ADD 

HL, DE 

5280 

CCJLOC: 

PUSH 

BC 

5290 


PUSH 

HL 

5300 


LD 

B, 00 

5310 

P_BUC1: 

LD 

A, <IX+O) 

5320 


LD 

(HL),A 

5330 


INC 

IX 

5340 


INC 

HL 

5350 


DJN2 

P_BUC1 

5760 


POP 

HL 

5370 


POP 

BC 

5380 


DJN2 

P_BUC 

5390 


RET 


5400 


DEFS 

0 

5410 

POSCUR: 

DEFW 

#9000 

5420 

CDNBY: 

DEEP 

0 

5430 

PJNTI: 

DEFP 

0 

5440 

ESPER: 

LD 

A,58 

5450 


CALL 

#BB1E 

5460 


RET 

NZ 

5470 


LD 

A, 60 

5480 


CALL 

#BB1E 

5490 


JP 

NZ,SAVE 

5500 


JR 

ESPER 

5510 

SAVE: 

LD 

B,4 

5520 


LD 

HL,NAME 

5530 


LD 

DE,#A900 

5540 


CALL 

#BC8C 

5550 


LD 

HL,#9500 

5560 


LD 

DE,600 

5570 


LD 

BC, 0 

5580 


LD 

A,2 

5590 


CALL 

#BC9B 

5600 


CALL 

#BCBF 

5610 


CALL 

#BC92 


5620 


RET 


5670 

LOAD: 

LD 

F,4 

5640 


LD 

HL,NAME 

5650 


LD 

DE,#A900 

5660 


CALL 

#PC77 

5670 


LD 

HL,#9000 

5680 


CALL 

#BC83 

5690 


CALL 

#BC7A 

5700 


RET 


5710 

NAME: 

DEFM 

"VIDA” 

5720 

LATID: 

DEFW 

0 

5730 

INCLAT: 

LD 

H, 30 

5740 


LD 

L, 25 

5750 


CALL 

#BB75 

5760 


LD 

HL, (LATID) 

5770 


INC 

HL 

5780 


LD 

(LATID),HL 

5790 


SCF 


5800 


LD 

DE,lOOOO 

5810 


INC 

HL 

5820 


LD 

A,47 

58^0 

DMIL: 

INC 

A 

5840 


SBC 

HL, DE 

5850 


JR 

NC,DMIL 

5860 


CALL 

PRINT 

5870 


LD 

DE,1000 

5880 

MIL: 

INC 

A 

5890 


SBC 

HL, DE 

5900 


JR 

NC,MIL 

5910 


CALL 

PRINT 

5920 


LD 

DE,100 

5930 

CIEN: 

INC 

A 

5940 


SBC 

HL, DE 

5950 


JR 

NC,CIEN 

5960 


CAl.L 

PRINT 

5970 


LD 

DE, 10 

5980 

DIEZ: 

INC 

A 

5990 


SBC 

HL, DE 

6000 


JR 

NC,DIEZ 

6010 


CALL 

PRINT 

6020 


ADD 

A,L 

60^0 


CALL 

PRINT 

6040 


RET 


6050 

PRINT: 

CALL 

#BB5A 

6060 


LD 

A,47 

6070 


JR 

NZ,PAS 

60B0 


INC 

HL 

6090 

PAS: 

ADD 

HL, DE 

6100 


INC 

HL 

61 10 


RET 



ETIQUETAS 


BIT1 

A0C6 

PIT2 

AOCC 



PIT4 

A0D8 

PIT5 

AODE 



BIT0 

AOEA 

BORRA 

A0B4 



BYT2 

A086 

BYT3 

A08C 



BYT5 

A098 

BYT 6 

A09E 



BYTB 

AOAA 

CIEN 

A5BO 



CDNBY 

A508 

DIEZ 

A58P 



DOWN 

AOFC 

ESPER 

A50A 



INCCON 

A407 

INCLAT 

A555 



LATID 

A553 

LEF 1 

A1 11 



LLL 1 

A45C 

LLL2 

A455 



MIL 

A575 

MIRO 

A3CO 



MIR2 

A35P 

MIR3 

A322 



M1R5 

A2B0 

MIR6 

A277 



MIRA 

A44D 

MIRBI1 

A409 



MIRPU 

A14B 

NAME 

A54F 



PASB10 

A IDO 

PASP1l 

A IE 1 



PASB13 

A1FP 

PASB14 

A 2 04 



PASB16 

A21E 

PASBI1 

A15F 



PASBI3 

A179 

PASBI4 

A182 



PASPI6 

A19C 

PASBI7 

A1 AD 



PASBI9 

A1C7 

PINBU 

A074 



PINTA 

A42E 

PINTI 

A509 

PINTU 

A439 

PONO 

A42P 

PON 1 

A42B 

P0N2 

A425 

P0N3 

A422 

P0N4 

A41F 

PONS 

A41C 

PQN6 

A419 

PQN67 

A4B8 

P0N7 

A416 

POSCUR 

A506 

POSIN 

A4B6 

PRINT 

A 5 98 

P_BUC 

A4DF 

P PUC1 

A4F8 

P_PAS 

A4EC 

RIGHT 

A1 ID 

SAVE 

A51 A 

S_BUC 

A4D6 

TEC 

AO 19 

TECLO 

A029 

TECLI 

A032 

TECL2 

A03C 

TECL3 

A046 

TECL4 

AOSO 

TEC.L5 

A05P 

TECL6 

A067 

UP 

AOEE 
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FORTH: POTENCIA 
Y VELOCIDAD 
EN ALTO NIVEL 

David Sopue'-fa 


caseros ha J. h r dn dado cuenta r 9 gf ra 

inquietos, s f> °* a je de programaci^ g eficaz 

qU ,?"nulltr°Tmstrad c plicaciones 

°°™° ctoa ,a hora de 

un sistema tna f od jficarlos. 


a primera soiucion que 
se nos ocucre es escribir este tipo de progra- 
mas en codigo mdquina. jQu6 problema! A 
la mayoria de nosotros puede que hacerlo nos 
resulte todavia bastante dificil y penoso ya que 
se trata de un lenguaje en el que hay que «hi- 
lar» muy fino, teniendo muy claro que es lo 
que queremos hacer y conociendo con preci¬ 
sion las instrucciones internas del micro. 

Ademas, los prograrnas generados son lar¬ 
gos y de dificil seguimiento en caso de error. 
Iiene un gran numero de instrucciones elemen- 
taies entre las que nos resultara relativamen- 
te facil perdernos. Asi que de momento... 

Un camino mas facil y entretenido es utili¬ 
zer alguno de los muchos lenguajes de alto ni 
vel que ya esidn a disposition de nuevo Ams- 
trad. Entre ellos estan incluidos el Pascal, el 
Forth y el Logo y, si su ordenador estd equi- 
pado con una unidad de disco, tambien po- 
drd hacer sus prograrnas en Lisp, Prolog, For¬ 
tran, C y muchos mas. 


Cada uno de ellos tiene sus venfajas e in- 
convenientes en las diferentes aplicaciones que 
ies demos. Mientras un lenguaje puede pare- 
cer ideal para una cosa en concreto, a lo ma¬ 
jor resulta ser demasiado lento o necesitar de- 
masiada memoria en otras ocasiones. 

En pocas palabras. Lo que realmente esta- 
mos necesitando es un lenguaje «ideai» que, 
en conjunto, sea suficientemente rapido para 
cualquier requisito, que no «despilfarre» de- 
masiada memoria y que, por supuesto, sea re- 
lativamente facil de aprender y utilizar. 


Forth: historic 
de fa eficacia 

El lenguaje que, en principio, se adapta me- 
jor a estos requisitos es el Forth y, no debe sor- 
prenderle que sea el segundo en popularidad 
entre los usuarios de ordenadores caseros. Es 
sencillo, compado, pensado para aplicacio¬ 
nes de uso general, ideal para emplearlo en 
multitud de problemas y su aprendizaje no en- 
trana ninguna dificultad, a pesar de su estruc- 
tura y vocabuiario poco usuales. 

El Forth nacio alrededor de 1969 y en un 
principio se utilize para controlar los comple- 
jos movimientos de los grandes telescopios. 
Desde entonces ha tenido una amplia y varia- 
da gama de usuarios para una no menos ex- 
tensa galena de aplicaciones. 

Posee aiguna de las caracteristicas avanza- 
das de los lenguajes de alto nivel, tales como 
estructuras de bucles y andlisis de condiciones 
muy complejas, y genera prograrnas muy uni¬ 




formes que se ejecutan a una gran velocidad, 
aproximadamente 10 veces mas deprisa que 
el Basic. A esto hay que anadir que podemos 
mod'ificar y ampliar el lenguaje aotandolo de 
nuevas palabras «clave>' a medida que vavan 
surgiendo a lo largo de cualquier aplicacion. 
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Nuestro primera (area, antes de comenzar 
a desentranar las maravillas de este nuevo len- 
guaje, es, por supuesto, tedear el progra- 
ma que nos servira para ejecutar en el Ams¬ 
trad las instrucciones que escribamos en 
Forth. 


Un interprete 
para aprender 

Dese cuenta de algo importante. Este pro- 
grama no nos genera realmente una version 
del Forth, simplemente simula esta opera- 
cion. Su mision es convertir cada nueva pa la- 
bra en un codigo que responda a un formato 
interno especial que se corresponds con unas 
instrucciones Basic que son las que realmente 
realizan el trabajo. 

Y como a confinuacion el Amstrad ha de 
interpretar estas sentencias Basic, no se extra- 
he que en esta ocasion cualquier programa 
creado en Forth se ejecutara bastante lento- 
mente. Pero no se desespere. Por lo demc-s es¬ 
ta version nos permite utilizar un Forth bastan¬ 
te parecido al que se usa realmente. A pesar 
de su lentitud. nos permitira hacer experimen- 
tos con este potente lenguaje empleanao las 
tecnicas sugeridas en este articulo. Cuando su 
aprendizaje haya ferminado ya estaremos ca- 
pacitados para decidir si Forth es «nuestro» 
lenguaje. De ser asi, ya sabe lo que le tocara 
hacer: adquirir una de las versiones comercia 
les disponibles para el Amstrad. 

Al principio puede resultarnos un poco in 
comodo de utilizar debido principalmente a 
que emplea una notacion diferente a la que 
nosotros estamos acostumbrados. En vez de 
escribir instrucciones en la forma que lo hace 
e! Basic, todas las sentencias Forth, o «pala- 
bra$» como de ahora en adeiante las cono- 
ceremos, necesitan tener sus arguments —o 
numeros con los que frabajan— «delante» 
de cada comanao y no despues como es el ca 
so de la mayor parte de los lenguajes. 


El Forth: 

es un lenguaje hasado 
en el concepto de stack 

Por ejemplo, si queremos sumar dos nume¬ 
ros y despues imprimir su resultado, lo conse- 
guiremos con la siguiente instruccion: 

PRINT 3 + 8 

Pero en Forth no se haria asi. Tendremos que 
escribir algo parecido a: 

3 8 + . 

aonde el punto (.) es la «palabra» Forth em 
pleada para visualizar en la pantalla. Esta for¬ 
ma de escribir ias instrucciones es io que se co- 
noce como sNoiacion Polaca Inverse* y le ase- 
guramos que no es tan enrevesada como pa- 
rece, asi aue no se sienta desanimedo por es¬ 
ta novedad. 

Sin embargo, no es la unica diferencia exis- 
tente. El Forth trabaja empleando una parte 
de la memorio llamada «stacta o pila para 
guardar los valores que en un determinado 
momento van a tener los argumentos que va- 
yamos a pasar a una «palabra». 


Su funcionamiento es muy sencillo. Imagine 
aue esta recogiendo platos y «apilando- 
Ios» uno encima del otro. Es evidente que el 
ultimo plato que hayamos tornado sera el que 
coloquemos en la parte superior de la «pila». 
Una vez colocados, necesitamos coger uno. 
gCuat sera? 

A menos que sea un malabarista e intente 
demostrarlo sacando uno de los platos de aba 
jo, lo mas normal y logico es que el elegido 
sea precisamente el que esta colocado enci¬ 
ma de todos. Asi sucede con el «stack», el ulti¬ 
mo dato que hayamos colocado en el es ge- 
neralmente el primero que despues vamos a 
sacar de alii. 

Es lo que los tecnicos han bautizado como 
memoria «LIFO» (o dost input-first out¬ 
put))) que quiere decir: el ultimo elemento que 
entra es el primero que sale. 

La manera en la que el Forth interpreta las 
instrucciones, o «pafabras)), que escribimos 
anteriormente es bastante sencilla. Coloca en 
el stack los numeros que vamos a sumar en el 
orden que se los hemos dado —primero el 3 
y encima el 8. A confinuacion se ejecuta la pa- 
labra Forth +. 

El modo de operacion es muy semejante en 
la mayor parte de las sentencias Forth: se sa- 
can los dos numeros del stack, se procesan en 
la forma oportuna y el resultado se vuelve a 
guardar en el stack para que pueda ser ma- 
nejado por sucesivas palabras. 

En este caso, se cogen los dos datos que ocu- 
pan las posiciones mas altas de la pila, se su- 
man y se devuelve este dato al stock. 

A confinuacion la siguiente palabra (.) ex- 
trae el numero que ahora este Colorado end 
ma (el resultado de la operacion anterior) y 
lo saca en la pantalla. El Forth ademas impri 
me el mensaje de «OK» para convencernos 
de que la instruccion se ha ejecutado sin erro- 
res. Observe y tenga siempre en cuenta que 
tanto los datos como las palabras Forth han 
de estar separadas por un espacio en bianco. 
jNo lo olvide! 

Estos comandos dejan el stack exactamen- 
te igual que estaba antes de ejecutarlos. Por 
nuestra parte le damos un consejo: es siem¬ 
pre conveniente que asi ocurra ya que de es¬ 
ta forma permitimos a las «palabra$)> si- 
guientes, operar con los valores que se colo- 
caron en la pila antes de ejecutarse la ante¬ 
rior secuencia de instrucciones. 

El limite superior del stack siempre contiene 
el uflimo numero introducido y si metemos en 
el un nuevo valor, el anterior queda debajo 
de modo que el elemento que hemos alrnace- 
nado mas recientemente es el que ocupara la 
parte mas alta de la pila, de ahi que se le Ho¬ 
me «top of stack)) (superior de la pila). 

Ouiza nos llame la atencion, por lo que he¬ 
mos visto hasta ahora, que el Forth ?6lo sea 
capaz de sumar dos numeros y no tres, cua 
tro o todos los que queramos. Pero es logico, 
la «paiabra« Forth « + » opera siempre sola 
mente con dos numeros (al fin y al cabo es lo 
que nosotros hacemos con cada una de sus ci- 


M. AMSTRAD ESPECIAL 13 









fras] y a continuacion devuelve d stack un uni- 
co resultado. Y esta forma de trabajo no solo 
es vdlida para la suma sino que podemos ex- 
tenderlo al resto de las operaciones aritmeti- 
cas empleadas en Forth, tales como multipli- 
caciones y divisiones. 

Pero este modo de desarroilar e! lenguaje 
no nos impide utilizar expresiones mas com- 
plejas. Solamente sera necesario poner un po- 
co mas cuidado en lo que estamos haciendo 
a la hora de decidir como organizarlas segun 
esta nueva notacion. 


Evaluacion de 

expresiones en Forth 

Pongamos un ejemplo. Si queremos evaluar 
en Forth la expresion: 

15 + 2x9 

debemos comenzar multiplicando 2 por 9 (re- 
cuerde la prioridad de operaciones) para en- 
contrar un resultado intermedia que sumado 
luego a 15, nos de el valor final de la expre¬ 
sion. 

Otra forma de calcularlo seria sumando pri- 
mero 15 y 2 y despues multiplicar el resulta¬ 
do por 9. Observe que la solucion obtenida 
es completamente aiferente de la anterior. 
jCual es la buena? 

Recuerde que en Basic existe un orden de 
ejecucion en las operaciones mciematicas y 
que el producto es mas prioritario que la su¬ 
ma. Por tanto, el Basic y la mayoria de los len- 
guajes utilizarari el primer metodo de evalua- 
cion. 

Sigamosle tambien en Forth. Para multipli¬ 
car 2 y 9 tendremos que teclear: 

2 9 * 

y nos dejara el resultado (18) en el elemento 
superior del stack. Podemos comprobarlo vi- 
sualizandole en la pantalla usando la palabra 
«.» pero tenga en cuenta que, si asi lo hace- 
mos desaparecera de la pita. De manera que 
como vamos a necesitar este valor en la si- 
guiente parte del cdlculo es mejor que lo de- 
jemos donde estaba. 

Despues necesitamos sumur 15 al elemento 
superior de la pila. Pues teclee: 

15 + 

y colocara el resultado en el nuevo «TOS» (top 
of stack) pudiendolo imprimir a continuacion. 
La primitiva expresion Basic se ha convertido 
en: 

2 9*15 + . 

que es el comando Forth que nos va a sacar 
en la pantalla el resultado correcto de la eva 
luacion: 33. 

Sobre los calculos mafematicos queremos 
puntualizar algo. La mayor parte de las ver- 
siones del Forth tiene unos operadores aritme- 
ticos que utilizan solamente numeros enteros 
y ademds dan resultados que son tambien en¬ 
teros. 
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Escriba ahora: 

9 4/. 

que tiene toda la pinta de ser el equivalente 
en Forth a: 

PRINT 9/4 

y la respuesta obtenida es 2 en lugar de 2.25 
que seria el valor exacto. De esta forma con- 
firmamos que el numero que nos devuelve la 
operacion es tambien entero. Asi aue de mo¬ 
menta queda bastante claro que no podemos 
usar numeros con punto decimal en esta ver¬ 
sion del lenguaje. 

Pero tambien esta restringiao el rango de 
los numeros. Intente teclear: 

1000 200 *. 

Parece que la respuesta que aparece en la 
pantalla no esta muy de acuerdo con lo que 
esperabamos. La aritmetica en Forth esta pen- 
sada para ser utilizada en micros, del mismc 
modo que el lenguaje. Por tanto, trabajara con 
numeros que puedan ser representados con 
16 bits (o digitos binariosj c lo que es lo mis 
mo, con valores comprendidos dentro del ran¬ 
go de —32768 a 32767. De ahi el mensaje, 
aunque sea ficticio, de «stack lleno»; la pila 
no esta llena, Ic que se produce es un ((over¬ 
flown o desbordamiento de la capacidad nu- 
merica de su micro. 

Esta notacion aritmetica no es tan comple- 
ja como parece. El mejorcamino para utilizar- 
Ia con soltura es intentar emplearla muchas ve- 
ces para hacer en Forth todas las operacio¬ 
nes que se nos ocurran. Despues de realizar 
unas cuantas practicas vera que su uso es ca- 
si tan sencillo como la empleada en la aritme¬ 
tica habitual con unu ventaja: es mucho mas 
potente. 


La potencia del Forth 
esta en crear 
nuevas ordenes en Forth 

Sin embargo, donde radica el poder real del 
lenguaje Forth es en el hecho de poder defi- 
nir nuevas «palabras» que se anaden inmedia- 
tamente a su vocabulario Dasico asi como de- 
finir con otro nombre las ya existences. 

La «palabra» Forth es algo equivalente 
a las subrutinas, o partes de un pragrama Ba¬ 
sic a las que se salta tras un GOSUB y siem- 
pre terminan con RETURN. 

De un modo sencillo, podemos decir aue una 
«palabra» es una serie de insirucciones, y 
sus correspondientes parametros, que estan 
agrupadas bajo un nombre que incorporamos, 
tras definirla, al vocabulario Forth. 

Pea ejecutar esta secuencia basta con in- 
vocarla, o liamarla, por su nombre y el pro- 
grama salta a la serie de instrucciones, asi bau- 
tizadas, y las ejecuta. 

Supongamos que preferimos utilizar pala- 
bras castellanas como operadores aritmeticos 
en lugar de los signos mafematicos y tambien 



emplear ESCRIBIR en lugar del punto Forth. 
Todo lo que hay que hacer es definir las nue¬ 
vas palabras. 

Para ello escribimos: 

: SUMAR+; 

:RESTAR—; 
MULTIPLICAR"; 

para las proximas palabras aritmeticas, y 
: ESCRIBIR.; 

para conseguir que nos aparezcan los resul¬ 
tados en la pantalla. 

Con estas definiciones, la expresion aritme¬ 
tica que anteriormente analizamos podria 
transformarse en: 

2 9 MULTIPLICAR 15SUMAR ESCRIBIR 

obteniendo el mismo resultado en ambos ca- 
sos. 

La primitiva expresion sigue siendo valida 
aunque actuaimente hayamos definido otras, 
con nombre diferente, pero que realizan las 
mismas operaciones. 

Todas las nuevas palabras Forth que que- 

















ramos crear se definen de la misma forma. Co- 
menzamos poniendo dos puntos seguidos por 
el nombre que queremos darle, a continuation 
ponemos la serie de instrucciones que quere¬ 
mos agrupar y cerramos la definicion con un 
punto y coma. 

Los dos puntos indican al Forth que vamos 
a definir una nueva palabra y deben ir segui¬ 
dos forzosamente por el nombre que quera- 
mos darle. 

Despues viene la secuencia de parametros 
y palabras Forth ya definidas que se ejecuia 
ran ai llamar a la nueva. No es necesario que 
sean palabras standard del lenguaie —tales 
como los signos-f y —del ejemplo anterior— 
sino que podemos usar tambien cualquier pa¬ 
labra de las que nosotros ya hemos creado. 

Finalmente, la definition se cierra con un 
punto y coma. De esta manera podemos con- 
seguir construir un lenguaje completo y com- 
pacto, en el que se emplean palabras standard 
del lenguaje para crear ofras nuevas, y des¬ 
pues utilizar las nuevas para otras sucesivas 
definiciones. El lenguaje crece de esto mane¬ 
ra indefinidamente. 


Los programas 
siguen el metodo de disefio 
«Top-down» 

Asi es exactamente como se genera un pro- 
grama en Forth. Dividimos un problema ge¬ 
neral en grupos de acciones mas particulares. 
Estos ultimos ya se pueden definir utilizando 
las palabras standard Forth. 

Y es en este punto donde comenzamos pa¬ 
ra luego ir definiendo otras cada vez mas com- 
plejas. Al final llegaremos a un programa com 
pleto compuesto por una sola palabra que, al 
teclearla, hace que se ejecuten fodas las aso- 
ciadas. 

Si seguimos usando el ejemplo anterior, po¬ 
demos definir la siguiente palabra: 

: CALCULO 2 9 MULTIPLICAR 15 SUMAR 

ESCRIBIR; 

y ahora, con solo teclear: 

CALCULO 

se ejecutaran todas las palabras agrupadas 
bajo este nombre, asi como tambien las stan¬ 
dard asociadas a ellas. 

Por supuesto que los programas Forth no 
consisten unicamente en la evaluation de ex- 
presiones aritmdticas —como en los casos 
anteriores— sino que tambien tienen a su dis¬ 
position otras palabras aue nos permifirdn 
realizar cosas bastante mas interesantes y 
atractivas. 

Todas estas palabras bdsicas, induidas en 
cada una de las versiones Forth que existen, 
es lo que se conoce como «vocabulario» 
del lenguaje, y en el estdn recogidas todas las 
que nos van a permitir utilizar variables, im 
plementar bucles, explorar el teclado y un 
monton de cosas que son necesarias para que 
sus programas sean mas complejos y le muss- 
tren la autentica potencia del lenguaje. 


Algunas ordenes 
del interprete 

Si quiere, puede hacer que le aparezca en 
la pantalla todo el vocabulario Dasico comple¬ 
to empleando el comando: 

* VLIST 

Y no solo eso. Tambien podemos visualizar 
todas las palabras aue hayamos definido no¬ 
sotros mismo. Si no lo ha hecho, le sugerimos 
que teclee las nuevas palabras de creation 
propia, para que por lo menos exista alguna. 

A continuation teclee: 

* LIST 

y podra conocer todas las que tiene a su dis¬ 
position. 

Pero empleando este comando puede tam¬ 
bien ver la serie de instrucciones que forman 
parte de cualquiera de ellas. Bastard con es- 
cribirlo seguido del nombre que queremos co¬ 
nocer y su listado estard «servido» . 


jQue ocurre si por equivocation definimos 
dos veces una misma palabra? Sencillamente 
esta version del Forth no acepta la segunda 
y nos da un mensaje de error: 

PalaDra ya definida 

En otras, si lo admite sin problemas. Guar- 
da la segunda palabra ademds de la anterior. 
Pero cuando invocamos el nombre con el que 
esta definida, el Forth accede a la mas reciente 
de fodas las que hayamos hecho sin tener en 
cuenta ninguna de las mas anfiguas. 

Con este interprete no se nos dard nunca es¬ 
te caso, ya que, como hemos dicho, no admi- 
tirc dos definiciones bajo el mismo nombre. 

Entonces si queremos corregir o modificar 
una de las ya existentes el camino mas como- 
do a seguir seria listar la palabra para tener 
conslancia de ella en la pantalla (no es nece¬ 
sario aunque si muy conveniente). Despues bo- 
rrar del diccionario la que queramos cambiar 
mediante el comando: 

* FORGET palabra 

que le dira al Forth que elimine de su diccio¬ 
nario la definicion que hayamos hecho de «pa- 
iabra». 

A continuation creamos una nueva, auxi 
liandonos del listado existente en la pantalla 
con el cursor de copia, induyendo las modifi- 
caciones que queramos hacer. 

Sin embargo, para utilizar ‘FORGET debe- 
mos pensar muy bien lo que estamos hacien- 
do ya que no solo nos elimina la palabra que 
le hayamos dicho, sino que tambien borra to¬ 
das las que esten definidas con posterioridad 
al nombre que sigue a ‘FORGET. Asi que, jojo 
con lo que borramos! 

Hasta este momenta debe tener por lo me¬ 
nos una pequena idea de que es lo que hay 
que hacer para trabajar con el Forth, pero se- 
guro que todavia no tiene una notion clara 
de como podemos hacer un programa: no co- 
nocemos lo que hace cada una de las instruc¬ 
ciones del vocabulario standard del lengua 

i e - 

Podemos dividirlas en grupos. El primero es 
el compuesto por todas las instrucciones en- 
cargadas de mantener en orden el stack cuan¬ 
do este contiene parametros. Son las instruc¬ 
ciones de tratamiento o manejo de la pila. 


Instrucciones de manejo 
de la pila 

Suponga que tenemos dos valores coloca- 
dos en el stack y queremos hacer una division 
entre ellos. Por eiemplo: 

6 21 . 

nos calcularia el cociente entre 6 y 2 y nos lo 
sacaria en la pantalla. 

Pero quizas el resultado que a nosotros nos 
interesaba es el inverso, o sea, el obtenido al 
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dividir 2 entre 6. La forma inmediafa de ha 
cerlo seria escribir: 

2 6 /. 

No siempre es posible hacer esto, ya que en 
la mayoria de las ocasiones no conocemos los 
valores confenidos en el slack. Ahora bien, el 
Forth aispone de un operador que intercam- 
bia los dos valores superiores de la pila. En 
nuestro caso ya podriamos realizar el inverso 
de la operacidn anterior medianie: 

6 2 SWAP/. 

Para comprobar que con esta instruction 
existe infercambio sin variar para naaa el resto 
de los elementos del stack, teclee: 

1 2 3 SWAP... 

y apareceran en la pantalia estos numeros pe- 
ro con el 2 y el 3 cambiados de orden, o sea: 

2 3 1 

Pero no es este el unico operador que nna- 
neja los elementos de la pila. ROT hace que 
giren los tres superiores. Coloca ei tercero en 
la posicion mas alta y desplaza a los otros dos 
un lugar mas abajo. Como siempre, la mane- 
ra mas efectiva de ver como funciona es un 
ejemplo practice, asi que escriba: 

1 2 3 ROT... 

El orden como quedan colocados es el que 
aparece en la pantalia y vemos que el 1 es el 
que estd colocado encima de los otros dos. 
zComprendido? 

Otro operador utilizado en Forth es DUP. 
Su mision es simplemente duplicar la ultima en- 
trada que haya existido en el stack. Si auiere 
calcular el cuadrado de un numero seria sufi- 
ciente con hacer: 

12 DUP *. 

para que nos aparezea 144 (el cuadrado de 
12) en la pantalia. 

Si en lugar de esto lo que necesitamos es du¬ 
plicar el elemento que estd inmediatamente 
debajo del superior, el Forth posee un opera 
dor que realiza este trabajo: OVER. Comprue- 
belo tecleando: 

1 2 OVER... 

que copiaria el 1 encima de 2 (elemento su 
perior en ese preciso instante) e imprimiria des¬ 
pues los tres elementos existentes sacandolos 
de la pila y dejandola vacia. 

El ultimo de los operadores de manejo de 
stack es DROP, que saca del mismo la ultima 
entrada de datos. Ejemplo al canto: 

1 2 DROP... 

Y estos son los mas importantes. Su conoci- 
miento y manejo pueden resultarnos un poco 
liosos ai principio pero poco a poco nos ire- 
mos habituando a ello y podremos «sabo- 
rears sus ventajas. 


Las estructuras 
del control del lenguaje 
son muy potentes 

t 

Pero el Forth no solo dispone de operado¬ 
res aritmeticos o de manejo del stack, sino que 
ademas posee unas estructuras de control da- 
sicas en otros lenguajes que le dan una gran 
potencia y versatilidad. Veamoslas. 

La senfencia que nos permitira alterar el or 
den de ejecuion de comandos dependiendo de 
que se cumpla o no una determinada condi- 
cion es IF... THEN... ELSE. Su forma general 
es: 

< condicion > IF < accion-l > 

ELSE < accion-2 > 

THEN < continuar > 

Su modo de funcionamiento es como sigue. 
La evaluacion de la condicion deja un «fal$o» 
o «verdadero» en el stack. Este resultado se 
analiza y si es verdadero se ejecuta la 
accion-l, si no, realiza la accion-2 y despues 
continua el programa en el punto que sigue 
a THEN. 

El Programa I seria un ejemplo de utiliza- 
cion de esta estructura. Parc ufilizarlo basia- 
ria con tedear la nota seguida de la palabra 
«NOTA» una vez que haya sido definida pa¬ 
ra que se nos informe de si hay aprobado o 
no. 


Programa I 

NOTA 5 < IF. "SUSPENSO" ELSE.' 1 PRO- 
BADO" THEN CR." CORECTO 

El Forth dispone tambien de una serie de es¬ 
tructuras de bucle que hace que se repitan una 
serie de instrucciones durante un determina- 
do numero de veces. Es el conocido FOR... 
NEXT del lenguaje Basic. 

< valor final > 

< valor inicial > DO < accion > LOOP 

Con el estamos ejecutando accion desde que 
el «mdice» es iguai al valor inicial hasta que 
alcanza el valor final. 

La palabra clave LOOP hace que volvamos 
a DO mientras no se haya alcanzado el valor 
final. Le sugerimos que intente hacer variacio- 
nes sobre este pequeho ejemplo, Programa II, 
para clarificar sus ideas. 


Programa II 

: BUCLE1 12 0 DO. «ESTO ES UN BUCLE 
QUE SE REPITE 12 VECES» CR LOOP; 

Podemos acceder al indice del bucle median- 
te la palabra Forth «l» que obtiene el valor 


en curso de la variable indice del bucle DO 
y le situa en la parte superior del stack. Si te- 
clea el Programa III lo vera en funcionamien¬ 
to. 


Programa III 

: BUCLE 13 1 DO I. SPACE. ((ESTO ESUN 
BUCLE QUE SE REPITE 12 VECES» CR LOOP; 

Si deseamos que el indice no se incremente 
de 1 en 1 sino con un valor diferente, se pue- 
de utilizar la estructura: 

DO... numero + LOOP 

poniendo en «numero» el increment de- 
seado, tanto positivo como negative. Pero esta 
es una facilidad que no contempla nuestro in¬ 
ter prete Forth, jEs una penal 

Existen tambien otra clase de bucles que van 
a repetir una serie de comandos dependien¬ 
do de que se cumpla o no una condicion. En 
Forth este tipo de bucle puede ser de dos for¬ 
mas. 

He aqui la primera de ellas: 

El bucle WHI LE nos va a permitir repetir una 
serie de acciones mientras se este cumpliendo 
una determinada condicion. Su forma gene¬ 
ral es: 

BEGIN < condicion > WHILE < accion > 
REPEAT 

La palabra BEGIN indica simplemente el 
punto donde comienza el bucle. Despues la 
condicion deja un valor en el stack dependien¬ 
do que se cumpla o no. 

WHILE analiza dicho valor y si no es cero 
(falso) ejecuta la «accion». REPEAT nosde- 
vuelve otra vez a BEGIN. 

Si la condicion no se cumple y, por tanto, 
el valor que coloca en el stack es cero, enton- 
ces no se ejecuta «accion» y se continua por 
los siguiente a la palabra REPEAT. 

El Programa IV es un ejemplo de la utiliza- 
cion de este tipo de estructuras. 


Programa IV 

: BUCLES 1 DUP BEGIN 13 < WHILE. ((ES¬ 
TO ES UN BUCLE QUE SE REPITE 12 VECES* 
CR 1+DUP REPEAT; 

La segunda forma de bucle indefinido es la 
que hace que se este ejecutando un proceso 
hasta que se cumpla una condicion. Se trata 
de la instruccion GEGIN... UNTIL. 

El formato mas general de esta sentencia es: 

BEGIN < accion > < condicion > UNTIL 

y su forma de trabajar es la siguiente: 

BEGIN marca, como en el caso anterior, e! 
comienzo del bucle. El cuerpo del mismo es 
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«ac<ion» y sera lo que se repita en el caso 
de no cumplirse la condicion. 

Despues se evalua la condicion y deja en el 
stack un valor acorde con el resultado de la 
misma. UNTIL es la palabra clave que se en- 
carga de encaminarnos a un sitio o a otro di- 
ferente. Cuando se encuentre con que el re- 
sultado logico de la condicion es falso fceroj, 
vuelve a BEGIN y repite el proceso. 

Sin embargo, si es verdadero (disfinto de ce- 
roj el proqrama continua por lo que hay de- 
tras de UNTIL. 


Programa V 


: BUCLE4 0 BEGIN. «ESTO ES UN BUCLE 
QUE SE REPITE 12 VECES» CR 1 + DUP 
12 = UNTIL. «FIN»; 

Estos dos ultimos bucles funcionan de una 
manera muy parecida: se evalua una condi¬ 
cion y dependiendo del resultado se continua 
fuera del mismo o se repite la ejecucion de un 
determinado proceso. 

Pero existe una gran diferencio entre am 
bos: el momenta donde se comprueba si se 
cumple la condicion. 

En el primer caso realizamos el analisis an¬ 
tes de ejecutar el cuerpo del bucle, por tanto, 


puede darse el caso que la condicion sea fal¬ 
sa y no ejecutemos accion alguna. 

Sin embargo, en el segundo siempre se va 
a ejecutar el proceso que hayamos definido 
entre BEGIN y UNTIL (al menos una vez). Se 
debe esto a que ahora la evaluacion de la con¬ 
dicion se hace al final del mismo. Asi que, jcui 
dodo con este matiz! 

Parece que se nos ha olvidado algo al ha- 
blar de este lenguaje: las variables. ^Es que 
no se empiean? 

La verdad es que si, existen y se usan. Pero 
una de las cosas que da potencia y velocidad 
al Forth es precisamente que utilize las varia¬ 
bles solamente cuando es imprescindible ha- 
cerlo. 

Para pasar para metros a rutinas o a ope- 
radores empleamos el stack tal y como lo he- 
mos venido haciendo hasta ahoro ya que se 
trata de valores temporales y no tiene mucho 
interes almacenarlos continuamente. 


Las variables en Forth 

Pero quiza necesitemos alguna vez guardar 
un determinado dato permanentemente. Y pa¬ 
ra esto estdn las variables en este y en la ma- 
yoria de los lenguajes. Pero en este caso es- 
tardn definidas a nivel global, es decir, que 
pueden ser ufilizadas por cualquiera de las pa- 
labras que esten en el vocabulario. 


La forma de declararlas es: 

< valor inicial > VARIABLE < nombre > 

y el nombre que le hayamos dado se incor¬ 
pora directamente al vocabulario de variables. 
Con: 

0 VARIABLE PUNTOS 

estamos creando una variable que se llama 
PUNTOS, a la que damos un valor inicial ce- 
ro. 

Podemos dar, o asignar, un valor distinto del 
inicial a una variable, ya definida, a lo largo 
de un programa. La forma de hacerlo en Ba¬ 
sic seria: 

PUNTOS — 100 

pero en Forth no se hace asi. Es un poco dife- 
rente, compdrelo usted mismo: 

100 PUNTOS! 

Y tambien podemos hacer el proceso inver¬ 
se, es decir, recuperar en el stack el valor que 
previamente nabiamos asignado a una varia¬ 
ble. 

Para colocarel valor de PUNTOS en el ele- 
mento superior del stack bastaria con hacer: 

PUNTOS 

y despues imprimirlo con la palabra «.». 

Pero estas dos ultimas instrucciones se po- 
drian agrupar en una sola. Si escribimos: 

PUNTOS ? 

obtendriamos el mismo resultado. 
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Por si queremos conocer lodcis las variables 
que hay definidas hemos implementado un co- 
mando que consigue hacerlas aparecer en la 
pantalla. Tecleando: 

‘VARLIST 

podremos obtener todo el vocabulario de va¬ 
riables incorporadas al lenguaje Forth. Inten- 
te definir unas cuantas y compruebe cdmo fun 
ciona esta nueva sentencia. 

Ahora nos surge una pregunfa: jque hace- 
mos cuando ya este creado un programa com- 
pleto compuesto por varias palabras, que fun- 
cione y cumpla su cometido? 

El Forth es un lenguaje como todos los de- 
mas, luego lo que debemos hacer es guardar 
el programa en cinta o en disco para asf po- 
der volver a utilizarlo cuantas veces queramos. 

Si quiere almacenarlo, o salvarlo, escriba: 

‘SAVE <nombre> 

y todas las palabras y variables definidas que 
esten en ese momento en la memoria pasaran 
a un soporte fisico (disco o cinta) y de esta for¬ 
ma no las perderemos. 

Para volver a cargarlas otra vez en la me¬ 
moria siga el mismo procedimiento al que ya 
esta acostumbrado en Basic: 

“LOAD < nombre > 

Despues de dar un repaso general a unas 
cuantas palabras standard del Forth, visuali- 
ce el diccionario basico mediante: 

‘VLIST 

Observara que en el hay incluidas algunas 
palabras que no son propias, precisamente, 
del lenguaje tales como CLG, DRAW, MOVE, 
etc. 

Se han anadido a esta version para darle 
una mayor potencia, sobre todo a la hora de 
crear graficos y dibujos en la pantalla. Se uti- 
lizan de una forma muy similar a como se ha- 
ce en Basic, pero ieniendo en cuenta la nue¬ 
va notacion invertida que hemos aprendido. 

Como muestra de sus posibilidades le deja- 
mos el Programa VI. Echele un vistazo e in- 
tenfe explicarse como funciona. 


Programa VI 


: CUADRADO -2 -2 MOVER DUP 0 
DRAWR 0 SWAP DRAWR DUP MINUS 0 
DRAWR DUP MINUS 0 SWAPT DRAWR; 

: FIGURA OCLS 200 320 MOVE 1 DO I 
CUADRADO LOOP; 

Y esto es todo por el momento. En una pro¬ 
ximo oporiunidad nos acercaremos un poco 
mas a todas las palabras que utiliza este nue- 
vo lenguaje Forth. Deseamos que, al menos, 
le llame un poquito la atencion esta nueva for¬ 
ma de ver la programacidn. 


to REM *ttMt*tt***t*****t**t****** 
20 REM * AMSTRAD FORTH » 

30 REM * * 

40 REM * MICROHQBBY AMSTRAD * 

50 REM **************************** 
*0 REM 

70 REM INIC1ALIZAC10N 

SO MODE 2s BORDER 13s INK 0,13:INK 1, 

O 

90 farth*-CHR*(12)+"MicrahQbby Fart 
h VI.1" 

100 QPENQUT "dummyMEMORY HIMEM-1: 
CLOSEOUT 

110 t*mp“0:DEFINT »-i 
120 DIM w* ! 130),p(130),beg(40),ff<4 
0) , df (40),bude(40),11(40),1i(40) 
130 er* (0) -"OK'der* (1) -"Oeabardaml • 
ntn de 1* capacidad minima dal atac 
k":art(2)“"Stack vacio" 

140 er*<3>-" ya deTini da" ier*(4)“" 

- nombre de variable i1egal"ter*(S) 
■ " - Ralabra no permi t i da" : er* (6) = " 
Stack 11eno" s er* (7) ""Stack ds rater 


no lleno" 

ISO »pmax»lOO:DIM a(apmax):»p —1 
160 cvn-5B:DIM evae*(cvn),dap(cvn, 1 
) 

170 FOR i"0 TO cvn:READ cvuc*(i),dm 

p (i ,0), dap (1,1) :NFXT 

ISO cvoc*(5)u"."+CHR*(34> 

190 umax-100:vmax-100:DIM uvoc*(uma 
x),uvex »(Umax),varl(vmax),var(vmax) 
200 uvn—1: vrn—1: PRINT -ferth&sPRIN 
TsPRINT er*(0) 

210 ON ERROR GOTO 2500 
220 REM ENTRAOA DE CQMANDQS 
230 w*-"":er=0:LINE INPUT In*:IF In 
THEN 660 ELSE IF LENdn*>>240 
THEN PRINT "Linea demaaiada larga": 
GOTO 230 

240 WHILE ASC(1n*)-32:IF LENdn*)>l 
THEN ln*-RlGHT*dn*,LENdn*> -I):WE 
ND ELSE 660 


250 WHILE RIGHT*dn», 1 >»CHR* (32) : In 
*-LEFT*dn*,L£Ndn*)-l> : WEND 
260 ln*“UPPER*dn*>:IF ASCdn*)“ASC 
("*") THEN IF LENdnSIM AND LEFT*( 
In*, 2)0"* " THEN OOSUB 1670: IF er 
THEN 230 ELSE w*-" " : GOTO 660 
27Q ln*»ln*+CHRS(32):x*-"":q-1:wn>- 
I:camp-0 

2B0 WHILE q<LEN(ln*> 

290 p a q:WHILE MID*(1n*,q,1K>” ":q- 
q + l:WEND 

300 w*-MID*dn*,p,q-p> : IF w*=":" TH 
EN IF wn —I AND RIOHT* (In*,2)[ " 
THEN comp —1: (WTO 610 ELSE PRINT "D 
eflnicicin i nearrect a" : GOTO 230 
310 FOR i-cvn TO O STEP-l:IF cvocll 
i)<>w* THEN NEXT:GOTO 37n 
320 IF comp THEN IF wn-0 THEN er-3: 
GOTO 660 

330 IF wn>=0 THEN IF w* (wn) ="VARIAB 

LF" THEN er ®4:B0TCi 660 

340 x#e.M*TCHR* (0) tOMR* d + I 4'e IF w*< 

>"."+CHRSs(34> THEN 610 

350 t.e= INSTR < q, 1 n *, CHR* (34 > +CHR* (32 

)):IF te-0 THEN PRINT"."sCHR*<34);" 

Bin "; CHR*(34):GOTO 230 
360 x*=x*+MID»dn»,q+l,tw q-l)+CHR» 
(4);q=te+l:GOTO 610 

370 FOR i=uvn TO O STEP-!: IF uvcicti 
i)(M THEN NEXT:GOTO 410 
330 IF comp THEN IF wri-0 THEN er 3: 
GOTO 660 

390 IF wn>=0 THEN IF w*(wn)-"VARIAB 
LE" THEN er-*4: GOTO 660 
400 x *-x *tCHR*(l)+CHR*(i+14):GOTO 6 
10 

410 FOR i-vrn TO O STEP -l:IF var*( 
ilOtii THEN NFXT: GOTO 450 


420 IF comp THEN IF wn=0 THEN er=3: 
GOTO 660 

430 IF wn)“0 THEN IF w*(wn)-"VARlAB 
LE" THEN er“3:GOTO 660 
440 k*»x*+CHR* (2) -t-CHR* (i +14) : GOTO 6 
10 

450 FOR i-l TO LEN(w*> 

460 IF i“l AND <AEC(w*>-ASC("+"> OR 
ASC(w*>=ASC()) AND LEN(w*)>l TH 


EN 4SO 

470 IF MID*(w*,1,l)<"O" OR MID*(w*, 
1,1) '*"9" THEN 530 
4S0 NEXT 1 


490 IF comp AND wn-0 THEN er-5: GOTO 
660 

500 IF wn >-0 THEN IF w* (wn) VARIAS 
LE" THEN er“5:GOTO 660 
510 IF VAL(w*) >32767 OR VAL(w*><-32 
767 THEN PRINT"Numero ";w*j" dernui 
ada grande":GOTO 230 
520 x *-x*+CHR*(3)+w*+CHR*(4):GOTO » 
10 

530 IF wn<0 THEN 560 ELSE IF wt (wn’ 
< >"VARIABLE" THEN 560 
540 IF camp AND w*=w*(1) THEN er«3: 
GOTO 660 

550 x*-x*+w*+CHP»(4>(GOTO 610 
560 IF w*<>" 1 " THEN 5S0 
570 IF camp^O OR qOLENdn*) THEN P 
RINT"Purita y ccima 1 legal":GOTO 230 
ELSE 610 

SBO IF camp THEN IF wn-0 THEN 610 
590 IF camp THEN IF w*Ow*(l> THEN 
er-5: QQTQ 660 ELSE x*-x*+CHR* ! I ) tCH 
RT (uvn + 15):GOTO 610 
600 er-5:GOTO 660 
610 wn-wn+1:w*(wn)-w* 

620 WHILE MID* d n*, q, 1) -" ":q^q + li* 
END 

630 WEND 

640 x*=x*+CHR* (13) : IF comp THEN 690 
ELSE 730 

650 REM RUTINA DE ERROR 

660 IF P0S(#0)>1 THEN PRINT CHR*(32 

>i 

670 PRINT w*|er*(er):GOTO 230 
600 REM COMPILAR NUEVA PALABRA 
690 IF wn<3 THEN PRINT"DeTinician l 
nccimpl eta" : GOTO 230 

700 uvn'-uvn + l: uvoc* (uvn) -w* (1): uv»k 
*( uvn)-x * 

710 w*-"":GOTO 660 

720 REM EdECUCION DE COMANDQS 

730 l n-0: w* d n) -x *: er> 0 

740 GOSUB 750: w*r." " • GOTO 660 

750 pdn) = l:ft dn)»0:dif dn)-0 

760 WHILE MID* (w* (In) ,p (In) , 1 > OCHS 

9(13) 

770 cl aae-ASQ (MID* <w* dn) ,p (In) ,jn 

: p d n) -p d n) +1 

730 IF claaeOO THEN 090 

790 pal - ASC (MID* (w* d n) , p dn) , 1))-) 

4:pdn)-pdn)+l 

000 IF ff dn) -0 OP pal=37 OR pal=3’ 
OR pal-40 THEN S30 
810 IF pat-5 OR pal=32 THEN WHILE A 
SC (MID* (w» dn> ,p dn) , I)) < >4: p (Ini 
dn) + l:WEND:p (in)-p dn)+l 
020 GOTO 1030 

030 IF sp+dap (pal, 1) <-l OR sp+d»p<f 
al,1)>apmax THEN er 1:GOTO 1040 
040 IF sp-dap (pal , 0) <-1 THEN ur"-2l0 
□TO 1040 

050 epmap+dap(pal,1) 

060 IF pal <43 THEN ON pal+1 GQSUSi 1 
060, 10S0, 1090,1100, 1110, 1120, 1130,1 
140,1150,1160,1170,1100,1190, 1200,1 
210, 1220, 1230, 1240, 1250, 1260, 1270,1 
200, 1290,1300, 1310, 1320, 1330, 1340,1 
350, 1360, 1370, 1300, 1390, 1400, 1410,1 
420, 1430, 14 40, 1450, 1460, 1470, 1480,1 
490 

070 IF pal >42 THEN ON pal-42 QD9UD 
1500, 1510, 1520, 1530, 1540, 1550, 15.60, 
1570, 1500, 1590, 1600, 1610, 1620, 1630, 
1640,1650 

aeo IF er-O THEN 1030 ELSE 1040 

090 IF claaeOl THEN 940 

900 pal-ASC (MID* (w*(ln) ,p (In), l)i-| 

4:p<ln)*p(ln)+l 

910 IF fMln) THEN 1030 

920 IF ln<34 THEN 1 n-ln+1 s w* UnJ^uv 

ex* (pal) ELSE er“7:RETURN 

930 QOSUB 750: IF ln»0 QR *r*=0 THEN 

1030 ELSE RETURN 

940 IF cl*»e<>2 THEN 9S0 

950 pal=ASC(MID*<w* (In) ,p (In) , i))-i 

4:p(ln)" a p(ln)+l 

960 IF THEN 1030 

970 sp»ftp+1: e (ftp > »S)v»r < pal) : GOTO 10 

30 

9Q0 IF clas»<>3 THEN er-i:QQTQ 1040 
990 p®p (In): WHILE ASC < MI D* < w* (1 n) ,P 
,1))<>4:p^p+l:WEND 
1000 v-VAL (MID* <w* (1 r») ,p (In) 

)+l)):p <ln)*p + i 
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1010 IF ff (In) THEN 1030 
1020 kp-kp+1Ik(ftp)“V 
1030 WEND 

1040 ln«ln-l: RETURN 

1050 REM LISTA DE CC1MANDQS 

1060 temp!-k<*p+l):IF temp!<0 THEN 

temp!-temp J +65536 

1070 POKE k(kp+2>,temp!-256*INT(tern 
p!/256>:POKE k(kp+2)+l,INT(temp)/25 
6)tRETURN 

1050 s (kp) *=b (ftp) tfc <sp + l) : RETURN 
1090 a (kp) —k ( ep ) + k (kp+1 > : RETURN 
1100 k(mp)»«(kp)-»(ap+1):RETURN 
1110 PRINT kUp+l) ;CHR* (8) RETURN 
1120 WHILE ASC(MID*(wt(ln), p (1 n),1) 
>04 : PRINT MID* <w* (1 n) , p < 1 n ) , 1) ; :p 
<ln)-p (in) +1: WEND: p (ln)-p (In) +1: RET 
URN 

1130 k (*p)-INT <k(kp)/k (kp + 1 >):RETUR 

N 

1140 t *=mip*= < ep ) ; k * @p) - I NT ( * < sp -1 ) /« 
<kp>) se (**■-! >*k(kp-1)-k(kp)ttemp s RE 
TURN 

1150 s <fcp)-(s <kp > «'0) : RETURN 
1160 »(kp)-<k<kp>-0>iRETURN 
1170 k(kp)-(k(kp)<k (kp + i>):RETURN 
11B0 » <*p)■<k(kp> «k(*p+1)> s RETURN 
1190 B(kp>-<*(«p>>k(ep+I)>:RETURN 
1200 temp!“PEEK<k(sp+l))+256*PEEK(k 
(sp +1)+1)* IF temp!>32767 THEN temp! 
“temp!-65536iPRINT temp!JCHR* <B);iR 
ETURN ELSE PRINT temp!;CHR*<3)j:RET 
URN 

1210 temp!-PEEK<*<sp> >+256*PEEK<*<s 
p)+1>lIF temp!>32767 THEN k(*p)-tem 
p!-65536:RETURN ELSE k<kp>“temp!tRE 
TURN 

1220 k(sp>-ABS(k(kp>>:RETURN 
1230 k(kp)-k(kp) AND b(» p + l)sRETURN 
1240 b < ep)-PEEK < b( ep)):RETURN 
1250 PRINT*RETURN 
1260 RETURN 

1270 k<ap)*k<»p-l>:RETURN 
1200 PRINT CHR* (k(sp +1))j:RETURN 
1290 in*-INKEY*iIF in*-"" THEN 1290 
ELSE k (ap)-ASC(in*):RETURN 
1300 k (kp)-MAX(k <kp),k(kp + 1))s RETUR 
N 

1310 k <ep)-MIN(k <ep >,k(«p+l) >:RETUR 
N 

1320 k <sp)--k (kp) i RETURN 

1330 k<kp)« s k(kp) MOD k(kp+1)iRETURN 

1340 k(kp)-k(kp) OR k<sp+1>sRETURN 

1350 k<»p)-«<«p-2)sRETURN 

1360 PRINT ” "iiRETURN 

1370 PRINT USING "fc"jSPACE*<k(kp+1> 

-256HINT <»(kp+1)/256)>RETURN 

1300 temp-k(kp)ik <kp)-k <kp-l> * b < ap- 

1 >-temp t RETURN 

1390 vrn*vrn+l:var (vrn)*a(kp+l): WHI 
LE ASC(MID*(w*(In),p(ln>,1))<>4:var 
*(vrn)-var*(vrn)+MIDS(w*(l n ) , p (1 n) , 
1):p(ln>-p(ln)+liWEND:p(1n)*p(In)+1 
* RETURN 

1400 b( kp)—k(ap) XQR k(kp+1):RETURN 
1410 beg(In)-p(in)* RETURN 
1420 IF k (kp + 1) -0 THEN pUn)«=beg(in 
)iRETURN ELSE RETURN 

1430 IF t(kp+1> < >0 THEN RETURN ELSE 
ii (In) —1: RETURN 

1440 IF if (In) THEN if (In)=0:RETURN 
ELSE p(ln)-begdn) :RETURN 
1450 IF k<kp+l)<>0 THEN RETURN ELSE 
if (In) — 1 * RETURN 
1460 ff (In)-Oj RETURN 
1470 ii (In)—1-ff (In) : RETURN 
14B0 FOR i-0 TO uvn:uvac*(i)":uve 
x* (i NEXT: uvn—I SPRINT -forth*:P 

RINT 

1490 FOR i-0 TO vrn:var*(i)-"":var< 
i )-0: NEXT* vrn—1 1 RETURN 
1500 temp-k < ap-2):k(mp-2)®a(ap-1>:k 
(kp-1)®k <kp):k(kp)-tempi RETURN 
1510 IF NOT df (In) THEN df(ln) — lib 
ucl«Un)-p(ln) sll (In) —k (»p +1) 1 1 i (In 
)»k(mp+2)iRETURN ELSE RETURN 
i 520 li (ln)-li (ln)+l: IF lidnXUll 
n) THEN p(In)-bucie(In):RETURN ELSE 
df(In)-0*RETURN 
1530 b( kp)=li(In)sRETURN 
1540 CLG k(kp+1):RETURN 
1550 DRAW k(kp+2),k(k P +l):RETURN 
1560 DRAWR s(cp+2),k(sp+1):RETURN 
1570 temp!»FRE("">:IF temp!>32767 T 


HEN b( kp)-temp !-65536s RETURN ELSE k 
(kp)-temp!iRETURN 

1500 MOVE e<kp+2),k(kp+1):RETURN 

1590 MOVER m(mp+2),k(kp+1>:RETURN 

1600 PLOT k(kp+2>,k(kp+1):RETURN 

1610 PLOTR k(kp+2),k(kp+l>{RETURN 

1620 e(kp)-RND*3276St RETURN 

1630 k <«p> -TEST (k (sp + 1) ,k(kp) ):RETIJ 

RN 

1640 k(kp)*TESTR<k(kp + l),s(kp))t RET 
URN 

1650 >;*XPQS: y-YPOSs PLOT BOO, BOO, k<a 

p + DiMOVE x,yiRETURN 

1660 REM PRQCESO DE EDICION DE COMA 

NDQS 

1670 »r-0:w*«"" 

16B0 IF In*“"*VLIST" THEN FOR i-cvn 
TO O STEP -1* PRINT cvac * (i ) , : NEXT 
SPRINT!RETURN 

1690 IF 1n*< >"*LIST" THEN 1750 
1700 FOR i-uvn TO 0 STEP -1 
1710 PRINT uvcic* (i ), 

1720 IF INKEY*-"" THEN 1740 
1730 WHILE INKEY*-"":WEND 
1740 NEXT:PRINT:RETURN 
1750 IF LEFT*<1n*,6)<>"*LI ST " THEN 
2010 

1760 w*“RIGHT*(in*,LEN(1n*)-6) 

1770 WHILE ASC(w*)-32iw*-RIGHT*(w*, 
LEN(w*)-l):WEND 

1730 FOR i-uvn TO 0 STEP -Is IF w*<> 
uvcic* (i) THEN NEXTiPRINT w*j" - Pal 
abra dasconocida"ter-1tRETURN 
1790 x*»uvex*(i) 

IBOO WHILE ASC(x.*> <>13 

1010 clake-ASC(x*>ix*-RIGHT*(x*,LEN 

(x*) -1) 

1B20 IF ciakeOO THEN 1B90 
1030 pal-ASC(x*)-14:x*»RIGHT*(x*,LE 
N (x. *) -1) 

1B40 PRINT cvQct(pal)j" "; 

1B50 IF pal 05 AND pal 032 THEN 199 
Q 

1B60 WHILE ASC (x*> 04: PRINT LEFT* (x 
4,1)}t x 4-RIGHT * < x *,LEN(x *)-1)iWEND 
1B70 x*“RIGHT* <x*,LEN (x*> -1):IF pal 
-5 AND c1 ik*<>3 THEN PRINT CHR*(34) 

I 

15B0 PRINT " "|t GOTO 1990 
1B90 IF clakeOl THEN 1930 
1900 pal-ASC(x*)-14:x*-RIGHT*(x*,LE 
N (x *) -1) 

1910 PRINT uvoe*(pal)\" "| 

1920 GOTO 1990 

1930 IF c1«se<>2 THEN 1970 

1940 pal-ASC <x.*) -14 1 x 4-RIGHT* <x4, LE 

N (x*> -1) 

1950 PRINT var*(pal);" 

1960 GOTO 1990 

1970 IF cUbbOS THEN PRINT er*(l): 

GOTO 2000 

1980 GOTO 1360 

1990 WEND 

2000 PR INTtRETURN 

2010 IF LEFT*(2n*,B)<>"*FQRGET " TH 
EN 2100 

2020 w*-RIGHT*(ln*,LEN(ln*)-Q) 

2030 WHILE ASC(w*)—32:w*=RIGHT*(w*, 
LEN(w*)-1):WEND 

2040 FOR i-uvn TO 0 STEP -Is IF w*<> 
uvac*(i) THEN NEXT:GOTO 20^0 

2050 FOR j=i TO uvn:uvac*(j... 

c*( J)-» 11 : NEXT 
2060 uvn-i-1:RETURN 

2070 FOR i-vrn TO O STEP -Is IF w*<> 
var*(i) THEN NEXTiPRINT w*j M - Pala 
bra descanoci da": er—1 1 RETURN 
2030 FOR J-i TO vrn-1;var*(j)-var*( 
j + l>:var <j)«var <j + 1>:NFXT 
2090 vrn-vrn-1:RETURN 
2100 IF ln*-’ , *SAVE" THEN 2440 
2110 IF LEFT*(1n*,6)< >"4SAVE " THEN 
2260 

2120 w*-RIGHT*(In*,LEN(In*)-6) 

2130 WHILE ASC(w*)-32:w*-RIGHT* < w*, 

LEN(w*)-1):WEND 

2140 dp-INSTR (w* f M . **) 

2150 IF dp-0 THEN w 1 *-w*t w2*- ,, 4TH" 
ELSE wl*«=LEFT*(w*,dp-l) :w2*-RIGHT*( 
w*,LEN(w*)-dp) 

2160 IF wl*—"" OR LEN(wl*)>B OR LEN 

(w24)>3 THEN 2440 

2170 IF w2*- M " THEN w2*-"4TH" 

2100 w*-wl*+»."+w2* 


2190 OPENOUT w* 

2200 PRINT *9, uvn: PRINT #9,vm 
2210 FOR i-0 TQ uvn:PRINT #9,uvoc*( 
i ) : PRINT #9, LEN (uvex.* (i ) ) 

2220 FOR j-1 TO LEN (uvex.* (i )): PRINT 
#9,ASC(MID*(uvex*<i), j, 1));iNEXT J 
2230 NEXT i 

2240 FOR i-0 TO vrn:PRINT #9,var*(l 
):PRINT #9,var <i)iNEXT 
2250 CLOSEOUTiRETURN 
2260 IF 1n*“"*LQAD" THEN 2440 
2270 IF LEFT*(In*,6)<>"*LOAD " THEN 
2440 

2280 w*—RIGHT*(ln*,LEN(ln*)-6) 

2290 WHILE ASC(w*)-32lw*«RIGHT*(w*, 

LEN(w*)—1>:WEND 

2300 dp-INSTR(w*, M .") 

2310 IF dp-0 THEN wl*=w*tw2*« ,, 4TH" 
ELSE wl*—LEFT* <w*,dp-1):w2*-RIGHT*( 
w*,LEN(w*>-dp) 

2320 IF wl*-'"‘ OP LEN (wl*> >3 DR LEN 

(w2*> >3 THEN 2440 

2330 IF w2*-"" THEN w2*-"4TH" 

2340 w*-wl*+"."+w2* 

2350 QPENIN w* 

2360 INPUT #9,uvn:INPUT #9,vrn 
2370 ERASE uvac*,uvex*,var*,var 
2380 DIM uvoc*(umax>,uvex*(umax),va 
r*(vmax),var(vmax) 

2390 FOR i-0 TO uvn:INPUT #9,uvac*< 
i):INPUT *9,lux 

2400 FOR j-1 TO lux:INPUT #9,temp:u 
vex *(i)-uvex 4 <i)+CHR*(temp >:NEXT j 
2410 NEXT i 

2420 FOR i=0 TO vrn:INPUT #9,var*(i 
):INPUT #9,var(i):NEXT 
2430 CLQSEIN:RETURN 

2440 IF ln*0"*YARLJST" THEN PRINT 
"Camando dekconocido o ineampleta"t 
er—1: RETURN 

2450 FOR i-vrn TD 0 STEP -1 

2460 w*-var*(i)+CHR*<32)+STR*(var <i 

))+SPACE*(2):PRINT w*, 

2470 IF INKEY*-"" THEN 2490 

2430 WHILE INKEY*-" 11 1 WEND 

2490 NEXTaPRINT: RETURN 

2500 er-6: IF mpMOO THEN kp-100:RES 

UME NEXT ELSE w*-"":RESUME 660 

2510 REM DATHS DE PALA&PAS RESERVED 

AS 

2520 DATA "•",2,-2,"*",2,-1,"+",2,- 
l,"-",2,-l,».",0,-l,"?",0,0,"/",2,- 

1, "/MOD",2,0,”0<",1,0,"0»",1,0, 

2, -1 

2530 DATA "-",2,-l,"> ,, ,2,-l, , »?",t,- 
1,0, " ABS” , 1,0, "AND", 2,-1, "CS" 
,1,0,"CR",0,0,"DROP",1,-1,"DUP",1,1 
2540 DATA "EMIT",1,-1,"KEY",0,1,"MA 
X",2,-1,"MIN",2,-1, "MINUS",1,0,"MOD 
",2,-1,"OR",2,-1,"OVER",2,1 
2550 DATA "SPACE",O,0,"SPACES",1,-1 
,"SWAP",2,0,"VARIABLE",1,-1,"XOR",2 
,-1,"BEGIN",0,0,"UNTIL",1,-1 
2560 DATA "WHILE",1,-1,"REPEAT",0,0 
,"IF",1,-1,"THEN",0,0,"ELSE",0,0,"F 
ORTH",0,0,"CLEAR",0,0,"ROT",3,0,"DO 
",2,-2,"LOOP",0,0,"I",O,+1 
2570 REM DATOS PARA PALABRAS AMSTRA 
D 

2530 DATA "CLG",1,-1,"DRAW",2,-2,"D 
RAWR",2,-2,"FRE",0,1,"MOVE",2,-2,"M 
OVER",2,-2 

2590 DATA "PLQl",2,-2,"PLOTR",2,-2, 
"RNP",0,1,"TEST",2,1,"TESTR",2,1,"R 
RAPEN",1,-1 
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EUROPA 


'VetVSe ^T‘£ p Z aprend er 

&nSi o&o «< 

~" qu T°i;Z~ -^.-seraJ®-« 

B,e y %rograma S escrifos con/co.a por e/ . 


! |uego consta de 

cinco ni['eles: 

— Nivel 1 Naciones. 

— Nivel 2: Capitales. 

— Nivel 3: Naciones-capitales. 
— Nivel 4: Oiganizacion militar. 
— Nivel 5: Organizacion econo 
mica. 


En el primer nivei aparecera el ma- 
pa de Europe y un cuadrado rojo en 
una nacion europea. 

El ordenador te preguntard que 
nacion es donde se encuentra el cua 
drado rojo. Si adivinas la nacion te 
da 20 puntos y te pregunta otra na¬ 
cion. 

Cuanto tengas 40 puntos, pulsan- 
do «L» cambias de nivei. 

En el segundo nivei, lo que hay 
que poner es la capital de lo nacion. 
Cuando tengas 80 puntos, pasas a 
otro nivei pulsando «L». 

... y a si sucesivamente con 
«Naciones-capitales», «Organizacio* 
nes militares» y «Organiza<iones 
economicas» 

Los cambios de nivei se producen 

a: 

— los 40 pts; 

— los 80 pts: 

— los 1 20 pts; 

— los 160 pts; 

— los 200 pts. 

A los 200 puntos vuelves a comen- 
zar. 


Variables 

E Vaior «x» del cuadrado en pan 
tallu de grdficos. 

F Valor «y» del cuadrado en pan- 
talla de graficos. 

H Valor del incremento. 

I Color del cuadrado (Siempre ro- 

jo 11) 

Q$ Nombre de la nacion, capital, 
etc. 

BC$, BD$, BE$, BF$, BG$, BH$, 
Bl$, BJ$, BK$, BL$, BLL$, BM$, BN$, 
BOS, BP$, BQ$, BR$, BS$, BTS, 
BUS, BW$, BX$, BY$, Dates. 

Ca Nivel. 

K$ Nombre de la nacion, capital 
etc. que introduces. 

LL Puntuacidn. 

AZ Numero de paises ya apela- 
dos. 

Instrucciones 

— Simplemente hacer lo que el or¬ 
denador diga, tiene las instrucciones 

incorporadas. 

— Si cuando pones el nombre de 

la nacion, capital, etc. escribes «L»y 
tu puntuacion es 40, 80, 120, 160 6 
200, cambias de nivei. 

— Si escribes «F» finaliza el juego. 
— Si escribes «R»te da la respues- 
ta el ordenador. 
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* INSTRUCCIONES «■ 

-L :PftRft CftMBXAR 
BE NIVEL 
-F:FINALIZACTON 
DEL JUEGO 
HRsPEDIR RES- 
PUESTA AL 
ORDENADOR 



CUAL ES OXAN 

ESA ES LA RESPUESTA CORRECTA 


990 PLOT 274,363:DRAW 275,366 
1000 PLOT 275,366:DRAW 260,369 
1010 PLOT 260,369:DRAW 269,273 
1020 PLOT 269,373:DRAW 263,371 
1030 PLOT 203,371:DRAW 276,377 
1040 PLOT 276,377:DRAW 283,3BB 
1050 PLOT 203,308:DRAW 209,207 
1060 PLOT 289,387:DRAW 290,388 
1070 PLOT 290,300:DRAW 290,395 
1080 PLOT 290,395:DRAW 295,39? 
1090 PLOT 230,318:DRAW 221,314 
1100 PLOT 221,314:DRAW 226,307 
1110 PLOT 226,307:DRAW 225,295 
1120 PLOT 225,295:DRAW 214,304 
1130 PLOT 214,304:DRAW 210,300 
1140 PLOT 2 10,300-.DRAW 210,281 
1150 PLOT 210,281:DRAW 206,281 
1160 PLOT 206,201:DRAW 200,276 
1170 PLOT 200,?7£ : DRAW 223,274 
1180 PLOT 223,274:DRAW 225,260 
1190 PLOT 225,260;DRAW 223,259 
1200 PLOT 223,259:DRAW 2*7,243 
1210 PLOT 227,243:DRAW 210,230 


10 KEY l,"FACTO DE W AR3QVIA” 

410 

PLOT 

171,205 

DRAW 

177,287 

1220 

1230 

PLGT 

PLOT 

218,230: 
215,223: 

DRAW 

DRAW 

215,223 
220,220 

20 REM 

420 

PLOT 

177,287- 

DRAW 

176,290 

1240 

PLOT 

220,220: 

DRAW 

237,220 

30 REM **************************** 

4.30 

PLOT 

176,290, 

DRAW 

105,292 

1250 

PLOT 

237,220: 

DRAW 

242,225 

**** 

440 

PLOT 

185,292: 

DRAW 

188,302 

1260 

PLDT 

242,225: 

DRAW 

252,213 

40 REM **** CARLOS REYES MUNCLU3 

450 

PLOT 

100,302. 

DRAW 

107,303 

1270 

PLOT 

252,213: 

DRAW 

254,200 

* * * * 

460 

PLOT 

187,303: 

DRAW 

193,315 

1280 

PLOT 

254,200: 

DRAW 

261,200 

50 REM **************************** 

470 

PLOT 

193,315- 

DRAW 

197.31P 

1290 

PLGT 

261,200: 

DRAW 

261,195 

**** 

430 

PLOT 

197,318 

DRAW 

187,320 

1300 

PLOT 

261,195: 

DRAW 

273,211 

60 REM 

490 

PLOT 

1P7,320 

DRAW 

193,322 

1310 

PLOT 

273,21 Is 

DRAW 

276,211 

70 INK 0,0:BORDER 0:INK 1,11: INK 2, 

500 

PLOT 

193,322 

DRAW 

1^5,320 

1320 

PLOT 

276,211: 

DRAW 

275,211 

6:INK 3,13 

510 

PLOT 

195,320 

DRAW 

200,324 

1330 

PLOT 

275,200: 

DRAW 

205,206 

80 PEN 2:CLS:PRINT:PRINT TAB <3)"* I 

520 

PLOT 

200,324 

DRAW 

191,331 

1340 

PLOT 

285,206: 

DRAW 

281,200 

NSTRUCCIONES DEL PRIMER NIVEL *" 

530 

PLOT 

191,331 

DRAW 

196,349 

1350 

PLOT 

201,200: 

DRAW 

293,193 

90 PEN 1:PRINT;PRINT:PRINT"-Tienee 

540 

PLOT 

196,349 

DRAW 

207,358 

1360 

PLOT 

293,193: 

DRAW 

299,200 

que pcmwr *1 nomtire de 1 a 11 : PRINT: P 

550 

PLOT 

207,350 

DRAW 

212,374 

1370 

PLOT 

299,200: 

DRAW 

304,201 

RINTt PRI'NT"n«cion dande sncuintr 

560 

PLOT 

212,374 

DRAW 

217,373 

1380 

PLOT 

304,201: 

DRAW 

305,205 

b el cuadradci : PRINT: PRINT: PRINT'*r 

570 

PLOT 

217,373 

DRAW 

215,393 

1390 

PLOT 

305,205: 

DRAW 

295,204 

Q J Q " 

580 

PLOT 

215,393 

DRAW 

210,399 

1400 

PLOT 

295,204: 

DRAW 

287,209 

100 PRINT:PRINT:PRlNT"Cue1qui »r fal 

590 

PLOT 

197,399 

DRAW 

193,300 

1410 

PLOT 

207,209; 

DRAW 

293,210 

t« urtcigr *lic« la": PR I NT: PR INT: PR IN 

600 

PLOT 

193,388 

DRAW 

194,387 

1420 

PLOT 

293,210:DRAW 

320,227 

T"interpreto coma error" 

610 

PLOT 

194,307 

DRAW 

105,377 

1430 

PLOT 

261,195: 

DRAW 

250,197 

110 REM 

620 

PLOT 

185,377 

DRAW 

182,365 

1440 

PLOT 

258,197: 

DRAW 

256,186 

120 REM *********** XNXCIQ ******** 

630 

PLOT 

102,365 

DRAW 

184,363 

1450 

PLOT 

256,106: 

DRAW 

253,175 

* 

640 

PLOT 

184,363 

DRAW 

181,359 

1460 

PLOT 

253,175: 

DRAW 

255,170 

130 REM 

650 

PLOT 

101,359:DRAW 

177,361 

1470 

PLOT 

255,170* 

DRAW 

254,160 

140 XCi-INKEYS 

660 

PLOT 

177,361 

DRAW 

174,354 

1480 

PLOT 

254,168: 

DRAW 

259,163 

150 IF YC*-"" THEN GOTO 140 

670 

PLOT 

174,354 

DRAW 

172,329 

1490 

PLOT 

259,163 

DRAW 

277,162 

160 CLS 

680 

PLOT 

172,329 

DRAW 

165,319 

1500 

PLOT 

277,162- 

DRAW 

289,172 

170 1-5 

690 

PLOT 

217,373 

DRAW 

222,372 

1510 

PLOT 

204,172 

DRAW 

299,175 

180 INK 1,0:INK 2,0:INK 3,0 

700 

PLOT 

222,372 

DRAW 

222,368 

1520 

PLOT 

299,175 

DRAW 

307,173 

190 PRINT:PEN 3:PRINT T AB < 22 > "* INS 

710 

PLOT 

222,360 

DRAW 

209,349 

1530 

PLOT 

307,173 

DRAW 

310,170 

TRUCCIQNES *" 

720 

PLOT 

209,349:DRAW 

210,329 

1540 

PLOT 

310,170 

DRAW 

320,170 

200 PEN 1:PRINT:PRINT TAB < 22 ) "-L:PA 

730 

PLOT 

210,329 
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3470 PLOT 219,185:DRAW 221,186 
3480 PLOT 221,106:DRAW 230,103 
3490 PLOT 230,183;DRAW 249,108 
3500 PLOT 249,180:DRAW 256,186 
3510 PLOT 221,186:DRAW 220,191 
3520 PLOT 220,191:DRAW 212,192 
3530 PLOT 212,192:DRAW 214,195 
7540 PLOT 214,195:DRAW 205,204 
3550 PLOT 205,204:DRAW 195,200 
3560 PLOT 195,200:DRAW 181,209 
3570 PLOT 205,204:DRAW 212,205 
3580 PLOT 212,205:DRAW 216,215 
3590 PLOT 216,215:DRAW 220,220 
7600 PLOT 100,263:DRAW 110,270 
3610 PLOT 110,270:DRAW 110,276 
3620 PLOT 110,276:DRAW 103,277 
3630 PLOT 103,277:DRAW 105,285 
3640 PLOT 105,285:DRAW 96,308 
3650 PLOT 96,308:DRAW 106,321 
3660 PLOT 106,321:DRAW 95,322 
3670 PLOT 95,322:DRAW 103,330 
3680 PLOT 103,330:DRAW 94,331 
3690 PLOT 94,331:DRAW 03,317 
7700 PLOT 83,317:DRAW 83,307 
3710 PLOT S3,307:DRAW 87,310 
7720 PLOT 87,310:DRAW 86,305 
3730 PLOT 86,305:DRAW 82,301 
3740 PLOT 82,301:DRAW 90,298 
3750 PLOT 90,298:DRAW 90,290 
3760 PLOT 90,290:DRAW 88,286 
3770 PLOT 88,286:DRAW 81,207 
3700 PLOT 81,207:DRAW 01,201 
3790 PLOT 81,201:DRAW 74,276 
3000 PLOT 74,276:DRAW 05,270 
3810 PLOT 85,270:DRAW 65,262 
3820 PLOT 65,262:DRAW 95,263 
3830 PLOT 48,280:DRAW 59,295 
3840 PLOT 59,295:DRAW 55,298 
3R50 PLOT 55,298:DRAW 58,307 
3860 PLOT 58,307:DRAW 65,303 
3870 PLOT 65,303:DRAW 65,308 
3880 PLOT 65,308:DRAW 75,310 
3890 PLOT 75,310:DRAW 80,305 
3900 PLOT 80,305:DRAW 79,297 
3910 PLOT 79,297:DRAW 75,296 
3920 PLOT 75,296:DRAW 71,285 
3930 PLOT 71,285:DRAW 51,282 
3940 PLOT 51,282:DRAW 48,280 
3950 PLOT 1,399,2:DRAW 320,399 
3960 PLOT 320,399:DRAW 320,130 
3970 PLOT 320.130:DRAW 1,130 
3900 PLOT 1,230*DRAW 1,399 
3990 PLOT 320,399,2:DRAW 639,399 
4000 PLOT 639,399:DRAW 639,130 
4010 PLOT 639,130:DRAW 320,130 
4020 INK 1,11:INK 2,6:INK 3,13 
4030 PEN 3sPRINT:PRINT:BM25 
4040 GOTO 6100 
4050 REM 

4060 REM ********* RAMDQM ********* 
4070 REM 

4080 8=45:F-170:6-5:H«5:1*11 
4090 Q*-BC* 

4100 R=R+1 

4110 IF R>=2 THEN GOTO 6460 
4120 GOSLIB 5870 
4130 GOTO 5920 

4140 E-100:F=215:Gs»5:H=*5: 1*11 
4150 Q*=BD* 

4160 T-T+l 

4170 IF T>=2 THEN GOTO 6460 
4180 GOSUB 5870 
4190 GOTO 5920 
4200 E-65:F«290:G-5:H=5:1-11 
4210 Q$=BE* 

4220 U=U+1 

4230 IF U>*2 THEN GOTO 6460 
4240 GOSUB 5870 
4250 GOTO 5920 
4260 E«90sF*270:G-5:H=5:1-11 
4270 Q*=BF* 

4280 W-W+l 

4290 IF W>-2 THEN GOTO 6460 
4300 GQSUB 5870 
4310 GOTO 5920 

4320 E-160:F-165:G«5:H-5:1-11 
4330 Q4-BG4 
4340 X-X + l 

4350 IF X>—2 THEN GQTD 6460 
4360 GQSUB 5870 
4370 GOTO 5920 

4380 E-135:F-212:G-5:H-5:1-11 
4390 Q*»BH$ 












4400 Y-V+1 

4410 IF Y>-2 THEN GOTO 6460 
4420 GOSUB 5B70 
4430 GOTO 5920 
4440 AB=AB+1 

4450 IF AB>=2 THEN GOTO 6460 
4460 E=117:F~250: G=5:H*5: 1-11 
5370 

4470 QS-*BI* 

4400 GOTO 5920 

4490 E-i5:F-175:G*5:H=5: I = U 
4500 

4510 Z-Z+l 

4520 IF Z>»2 THEN GOTO 6460 
4530 GOSUB 5870 
4540 GOTO 5920 

4550 E 125:F 260:G-5:H-5:1=11 
4560 Q*«BK* 

4570 AA-AA+1 

4530 IF AA>=2 THEN GOTO 6460 
4590 GOSUB 5870 
4600 GOTO 5920 

4610 E-140:F*240:G-5:H-5:1-11 
4620 Q*-BL« 

4630 AC-AC+1 

4640 IF AO-2 THEN GOTO 6460 
4650 GOSUB 5B70 
4660 GOTO 5920 

4670 E—160: F= t 250: G=5: H“5: 1 = 11 
4680 Q*«BLL* 

4690 AD=AD+1 

4700 IF AD>=2 THEN GOTO 6460 
4710 GQSUB 5870 
4720 GOTO 5920 

4730 E-170:F-215:G=5:H=5:1=11 
4740 Q*^BM* 

4750 AE=AE+1 

4760 IF AE>-2 THEN GOTO 6460 
4770 GOSUB 5870 
47QG GOTO 5920 

4790 E=190:F 185:G=5:H»5:1*11 
4300 Q$=BN* 

4810 AF=AF+1 

4820 IF AF>=2 THEN GOTO 6460 
4830 GOSUB 5870 
4840 GOTO 5920 

4850 E—175:F—235:G=5:H=5:1=11 
4360 Qt-BQ$ 

4870 AG-AG+1 

4880 IF AG>=2 THEN GOTO 6460 
4890 GOSUB 5870 
4900 GOTO 5920 

4910 E=200:F=255:G=5:H=5:1-11 
4920 Q$-BP* 

4930 AH q AH+1 

4940 IF AH>—2 THEN GOTO 6460 
4950 GOSUB 5870 
4960 GOTO 5920 

4970 E«230:F-200:G^5:H^S:1^11 
4980 Q$=BQ* 

4990 AI-AI+1 

5000 IF AI>=2 THEN GOTO 6460 
5010 GOSUB 5870 
5020 GOTO 5920 

5030 £*2001F-210:G-5: HNS:I-11 
5040 0*=BR1i 
5050 AJ«AJ+1 

5060 IF AJ>=2 THEN GOTO 6460 
5070 GOSUB 5870 
5080 GOTO 5920 

5090 E-200:F=155iG=5:H-5:1=11 
5100 Q*=BS* 

5110 AK-AK+1 

5120 IF AK>=2 THEN GOTO 6460 
5130 GOSUB 5870 
5140 GOTO 5920 

5150 E-215: F 38 ! 35: G s 5: H s 5: 1-1 1 
5160 Q*«BT* 

5170 AL-AL+1 

5180 IF AL>=2 THEN GOTO 6460 
5190 GQSUB 5870 
5200 GOTO 5920 

5210 E«235:F^170iG=5iH^5:1-11 
5220 Q*=BU* 

5230 AM-AM+1 

5240 IF AM>-2 THEN GOTO 6460 
5250 GOSUB 5B70 
5260 GOTO 5920 

5270 E-150:F-330iG-5:H-5:1-11 
5280 Q*-BV* 

5290 AN-AN+1 

5300 IF AN>«2 THEN GOTO 6460 
5310 GOSUB 5870 
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5320 GOTO 5920 

5330 E=175:F*305:G=5:H-5:I-11 
5340 Q$-BW$ 

5350 AO-AO+1 

5360 IF AQ>=2 THEN GOTO 6460 
5370 GOSUB 5870 
5380 GOTO 5920 

5390 E-225:F=350:G-5:H«5:1=11 
5400 Q$=BX$ 

5410 AP-AP+1 

5420 IF AP>=2 THEN GOTO 6460 
5430 GOSUB 5B70 
5440 GOTO 5920 

5450 E-260:F 260:G 5:H 5:1 11 
5460 Q*=BY* 

5470 AQ~AQ+1 

5480 IF AQ>=2 THEN GOTO 6460 
5490 GOSUB 5870 
5500 GOTO 5920 

5510 IF L>-4u THEN GOTO 5530 
5520 GOTO 6810 

5530 R-0: T-0:U=0: W-0: X 0: Y 0: 7.-0: AB 
=0:AA=0:AC=0:AD=0:AE-O:AF=0:AG-O:AH 
=0: AI=0: AJ=0: AK-O: AL-O: AM-^O: AN=0: AQ 
-0:AP-O:AP=0 

5540 IF CA=1 THEN GOTO 5620 
5550 IF CA*2 THEN GOTO 5680 
5560 IF CA = 3 THEN GOTO 5740 
55 7 0 IF CA=4 THEN GOTO 5790 
5580 IF CA-5 THEN GOTO 5430 
5590 REM 

5600 REM ********** NIVELES ******* 
*** 

5610 REM 

5620 PEN 2: CLS: PRINT: PRINT TAB (2) " * 
INSTRUCCI ONES DEL SEGUNDO NIVEL *" 
5630 PEN 1:PRINT:PRINT:PRINT"-Tione 
c que ponsr el ncimbre de 1 PRINT: 
PR I NT: PR I NT 11 c ap i t a 1 donde «ie wncuen 
tre el cuadrado":PRINT:PRINT:PRINT" 
rojo"SPRINT:PRINTS PRINT" cualquier f 
alta cirtograf ica la " : PRINT: PRINT:P 
RINT"interpreto como error" 

5640 Z5$=INKEY® 

56S0 IF ZS*»"" THEN GOTO 5640 
5660 CA=2:CC*="CAPITAL" 

5670 GOTO 160 

5680 PEN 2 1 CLS:PR INT:PRINT TAB(2)"* 
INSTRLICI ONES DEL TERCER NIVEL" : PEN 


• INSTRUCCZONES DEL CUARTO NIUEL • 

Tl*n»* qu* pon#r »1 noftbr« 4# 

1a oraJtniz«olon nillUr d* 1* rwolon 
dond* *• *nou*ntr« *1 ouadrado rojo 
Cualquier falta ortosrafio* 
la intarprato oono error 


1:PRINT:PRINT:PRINT"-Tiones que po 
ner el nombre de 1 a":PRINT:PRINT:PR 
INT"nacion-capital donde se encuent 
re elPRINT:PRINT:PRINT"cuadrado r 
ojo" 

569Q PRINT: PRINT: PRINT "ciial qui er fa 
Ita ortografica 1 a":PRINT:PRINT:PRI 
NT"1nterpreto como error" 

5700 ZX*=*INKEY* 

5710 IF 2X4-"" THEN GOTO 5700 
5720 CA*=3 
5730 GOTO 160 

5740 CLS:PR INT:PEN 3:PRINT TAB(2)"* 
INSTRUCCIONES DEL CUARTO NIVEL *"i 
PRINT:PRINT:PEN 1:PRINT"Tiones que 
poner el nombre de":PRINT:PRINT"1 a 
organ i z aci on militar de la nacion": 
PRINT:PRINT"donde eb encuentre el c 
uadrado rojo" 

5750 PRINT:PRINT"Cu*lquier falta or 
tografica":PRINT:PRINT"1 a interpret 
o como error" 



5760 CA=-4 

5770 PS*-INKEY*sIF PSt="" THEN GOTO 
5770 

5780 GOTO 160 

5790 CLS:PRINT:PEN 3:PRINT TAB <2)"* 
INSTRUCCZONES DEL OUINTO NIVEL *": 
PRINT SPRINT: PEN l-.PRINT "Tienes que 
poner el nombre de" : PRINT:PRINT"1a 
organization politica de la nacion 
":PRINT:PR INT"dande eb encuentre el 
Guadrado rojo" 

5800 PRINT:PRINT"Cualquier falta or 
tograficaPRINT:PRINT"1 a interpret 
o como error" 

5810 CA=5 

5820 CR*-INKEY*sIF CR* "" THEN GOTO 
5820 

5830 GOTO 160 
5840 REM 

5Q50 REM ***** PINTAR GUADRADO **** 
5860 REM 

5870 FOR J 1 TO G 

5880 PLOT E, F,2:DRAW E+H.F 

5890 F=F*1 

5900 NEXT J 

5910 RETURN 

5920 REM 

5930 REM ******** PPEGUNTA ******** 
5940 REM 

5950 LOCATE l,19:INPUT"CUAL ES ",K* 
5960 AZ=AZ+1 

5970 IF K**"L" THEN GOTO 6010 
5980 IF K*-"F" THEN GOTO 6090 
5990 IF K* "R" THEN GOTO 6100 
6000 GOTO 6120 

6010 IF LL-40 THEN GOTO 5620 
6020 IF LL*80 THEN GOTO 5680 
6030 IF LL-120 THEN GOTO 5740 
6040 IF LL=160 THEN GOTO 5790 
6050 IF LL-2G0 THEN GOTO 6810 

6060 LOCATE 1.19:PRINT"PUEDE5 CAMBI 
AR DE NIVEL CUANDO TU ":PRINT:PRINT 
"PUNTUACION SEA 40,80,120 a 160":F 
OR HJK l TO 2000:NEXT:LOCATE 1,19:P 
PINT" 

":LOCATE 1,21:PRINT" 

": LOC 

ATE 1,19 
6070 R=R~1 
6080 GOTO 5920 
6090 CLS:END 

6100 PEN 1:PRINT:PRINT Q$:FOR S-l T 
0 2500:NEXT S:IF AZ-23 THEN GOTO 55 
10 

6110 GOTO 6740 
6120 IF THEN GOTO 6140 

6130 IF K*OQ* THEN GOTO 6160 
6140 PRINT:PRINT"ESA ES LA RESPUEST 
A CORRECTA":PEN 1:SOUND 1,100,2,7:L 
L-LL+20:PRINT:PRINT:PRINT TAB<34> L 
L:PEN 3:FOR LLA=1 TO 2500:NEXT:IF L 
L>*200 THEN GOTO 6820:IF AZ-23 THEN 
GOTO 5510 
6150 GOTO 6740 

6160 PRINT:PRINT"NO,LA RESPUESTA CO 

RRECTA ES":PEN 1:SOUND 1,800,25,7:P 

RINTsPRINT Q$: PEN UPRINT TAB <34) 

LL:PEN 3:INK 0,0:B0RDER 0:F0R V*1 T 

O 2500:NEXT V:INK 0,0:BORDER 0:IF A 

Z-23 THEN GOTO 5510 

6170 GOTO 6740 

6180 IF CA-1 THEN GOTO 6260 

6190 IF CA-2 THEN GOTO 6290 

6200 IF CA=3 THEN GOTO 6320 

6210 IF CA=4 THEN GOTO 6390 

6220 IF CA-5 THEN GOTO 6420 












6230 REM 

<£>240 REM tit ******* DATOS ********* 

ft 

62*50 REM 

6260 BC*-"ESPANA": BD*«"FRANCIA":BE* 
IRLANDA": BF*=" INGLATERRA" : BG*~" IT 
ALIA":BH*«"SUIZA U : BI*-"BELGICA" sBJ* 
*"PORTUGAL 11 : BK* "HOLANDA" : BL*~"ALEM 
ANIA OCCI DENTAL" : BLL* 11 ALEMAN IA ORI 
ENTAL" : BM*= " AUSTRI A" : BN*="YUGOSLAV! 
A":BO$="CHECQSLOVAQUIA":Bp*-"pQLONI 
A" 

6270 BQ*="RUMANI A” : BR**"HUNGRIA" s BS 
*■"ALBAN!A" : BT* - "GRECI A" : BU*-"BULGA 
RIA" : BV* = "NQRUEGA 11 : BW* "SIJECI A" ; BX* 
•"FINLANDIA":BY*-"RUGIA" 

62S0 GOTO 6460 

6290 BC*-="MADID" : EDt^'RAPlS": RE* "D 
LIBL IN“ : BF** ,, LONDRES" : BG*=" ROMA" : BH* 
*"BERNA": BI* "BRUSELAS":BJ* "LISBOA 
" : BK'*-"AMSTERDAM" : BL*^"RONN" : BLL*- 11 
BERLIN":BM*-"VJENA" 

6300 BN***"BELGRADO" : BO*-"PRAGA" s Bp* 
= " VARSQVI A" : BQ* "BUCAREST" : BR*= ,, BIJD 
APEST":BS*»"TIRANA" 

6310 BT*—"ATENAS" : BU**“ SOFIA " : BV*- " 
OSLO":BW*-"ESTOCDLMO": BX**"HELSINKI 
" :BYSa^MOSCU":GOTO 6460 
6320 BC*-"ESPANA-MADRID":BD* "FRANC 
IA-PARIS"s BE*-"IRLANDA DUBLIN":BF$ 
"INGLATERRA-LPNDRES":BG* "I TALIA-RO 
MA":BH*«"SUIZA-BERNA »:BI*="BELGICA- 
BRUSELAS" ; BJ* 53 "PORTLIGAL-LISBOA" : BK* 
-"HOLANDA-AMSTERDAM":BL* a "ALEMANIA 
OCCIDENTAL-BONN" 

6330 BLL*="ALEMANIA ORIENTAL-BERLIN 
BM*^"AUSTRIA-VIENA” 

6340 BP*-"pOLQNIA-VARSQVIA":&Q*-"RU 
MANIA-BUCAREST" 

6350 BR*~ "HUNGRIA-BUDAPEST 11 : BS* "AL 
BANIA-TIRANA" 

6360 BN*="YUGGSLAVIA-BELGRADO" : BO* 1 - 


" CHECOSLOVAQLIIA PRAGA" 

6370 BT**"GRECIA-ATENA3":BU*="BULGA 
RIA-SOF I A” : BV*= " NORUEGA OSLO" : BW*» " 
SUECIA-ESTOCOLMO":BX*-"FINLAND IA-HE 
L.S INK1 11 : BY*=" RUSIA-MOSCLI" 

6300 GOTO 6460 

6390 BC*= "QTAN" : F<D* "OTAN" s BE*-"NUL 
0":BF*-"OTAN":BG*="nTAN":&H*-"NULD" 

: BI*-"OTAN" : B.]*-"OTAM l ‘: BK*="OTAN" : B 
L* "NULO":BLL*-"PACTO DE VARSOVIA": 
BM*-"NULO": BN*-"NULO" 

640<’ 1 B0*="PACTO DE VARCOVIA":BP* "P 
ACT Q DE VAR30VIA": POT. - "PACTO PE ’••'AR 
SOVIA":BR* "PACTO PE VARSOVIA":BS*~ 
"PACTO DF VAPSOVIA":BT*="NULO":BU * 
"PACTO DF VARSOVIA":BV* "OTAN":RW*- 
"NULO":BX* "NULO":BY* "PACTO DE VAR 
SOVIA" 

6410 GOTO 6460 

6420 BCWCEE" : BD$- "CEE" : BE*="rEF " : 
&F*="CEE":BG* ="CEE":BH*®"NULO" : BI *= 
"CEE": B.I*="CEE" : BK*="CEE" : BL* "CEE" 
:BM*="NULO":BN*-"NULO":BO* "COMECON 
":BP* "COMECON":BQ* "COMECON": BR* " 
COMECON":BS*«"NULO":BT * "CEE":BU*-” 
COMECON" 

6430 BV*-"NlJLO" : BW*» "NULO" : F‘X*-"NUL 
0":BY**"COMECON" 

6440 GOTO 6460 
6450 REM 

6460 A*INT ( RND<1> *B) 


6470 

IF 

A-1 

THEN 

GOTO 

4090 

6480 

IF 

A-2 

THEN 

GOTO 

4140 

6490 

IF 

A=*3 

THEN 

GOTO 

4200 

6500 

IF 

A = 4 

THEN 

GOTO 

4260 

6510 

IF 

A-5 

THEN 

GOTO 

4320 

6520 

IF 

A=6 

THEN 

GOTO 

4380 

6530 

IF 

A-7 

THEN 

GOTO 

4440 

6540 

IF 

A-e 

THEN 

GOTO 

4490 

6550 

IF 

A=9 

THEN 

GOTO 

4550 

6560 

IF 

A=10 

i THEN 

1 GOTO 

i 4610 


6570 

IF 

A= 1 1 

THEN 

GOTO 

4670 

6500 

IF 

A-12 

THEN 

GOTO 

4730 

6590 

IF 

A-13 

THEN 

GOTO 

4790 

6600 

IF 

A* 14 

THEN 

GOTO 

4850 

6610 

IF 

A-15 

THEN 

GOTO 

4910 

6620 

IF 

A-16 

THEN 

GOTO 

4970 

6630 

IF 

A-1 3 

THEN 

GOTO 

5030 

6640 

IF 

A* 10 

THEN 

GOTO 

5090 

6650 

IF 

A* 19 

THEN 

GOTO 

5150 

6660 

IF 

A=20 

THEN 

GOTO 

5210 

66^0 

IF 

A=21 

THEN 

GOTO 

5270 

6690 

IF 

A-22 

THEN 

GOTO 

5330 

6690 

IF 

A=23 

THEN 

GOTO 

5390 

6700 

IF 

A-24 

THEN 

GOTO 

5450 


6710 REM 

6720 REM ************ RND ********* 
** 

6730 REM 

6740 FOR DE=l TO G 

6750 PLOT E,F-5,0:DRAW E+H,F-5 

6760 F-F+l 

6770 NEXT 

6700 LOCATE 1,1°:PRINT" 

6790 GOTO 4040 
6900 GOTO 6460 
6810 CLS:END 
6820 CLS:RUN 
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Con el fin de acelercir lo mas posible el correo, y poder resolver o contesfar a to- 
das las dudas y sugerencias que llegan a nuestra redaccion, a partir de esta semana 
os rogamos, en beneficio de todos, consignor en el sobre, en lugar bien visible, una 
de las denominaciones siguientes: 

— Suscripciones AMSTRAD. Para todos aquellos casos relacionados con peticion de 
cintas, numeros atrasados, formalizacion de suscripciones, devoluciones etc... 

— Mercado Comun AMSTRAD. Compras, ventas, intercambios, clubs... 

— Sin duda alguna AMSTRAD. Para que nos envieis todas vuestras dudas. 

—■ Serie Oro AMSTRAD. Para los programas que nos envieis para su publicacion. 

— Sugerencias AMSTRAD. Para vuestras criticas, sugerencias o cualquier opinion 
que querais vertir sobre la revista. 
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FECHA.i09/W86 MANUAL 


Paqurte integradv dr gestion qur le permite a Vd., de forma lacil y optimizando el 
tiempn, la gestion global de su embresa. 


in global de su empresa. 

Este paquete inrorpora los programas de CONTABILIDAD, FACTURACION y 
CONTROL Dt STOCKS ademas de un prngrama de CONTROL DE PFDIDOS y todo 
\de forma interactiva. Controls su empresa por solo gQQ 
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Contabilidad 


Contabilidad de fac'd manejo y 
de gran potencia que permite 
trabajar con cuentas de hast a 
cuatro niveles, con capacidad 
segun diskette de 500/1.000 
cuentas y de 2.000/10.000 
asientos. 


Permite modificar o dar de baja 
apuntes ya integrados en el 
Mayor, programaciones de 
cierres, ficheros de 
Contabilidad y Cuenta de 
Explotacion, ejecucion de 
balances comparativos, 
reenlazandolos por meses, 
clave acceso restringido, etc... 


19.900 ptas. 


Facturacion 


Programa de gran agilidad y 
rapidez que incorpora el 
Control de Clientes, con gran 
capacidad de datos, Artlculos, 
Albaranes, Facturas y recibos. 


Generacion automatica y 
manual de documentos, 
valoracion, a voluntad de los 
albaranes, todo tipo de listado, 
incluido el del IVA de las 
facturas emitidas para la 
declaracion de Hacienda, etc,.. 
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15.500 ptas. 


Control 
de stocks 


Gran capacidad de datos, le 
per mitiran a Vd. I leva r con 
claridad y sencillez el control 
de su stock. 

El programa le permite llevar 
un libro de entradas/salidas, 
reorganizarlo, hacer listados de 
stocks..., le avisara de los limites 
de stocks, minimo y maximo 
por articulo, etc... 

Todo para la llevanza de su 
almacen. 
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Asimismo, Contabilidad disponible para CPC 664/6128 9.90l 
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de SAUDA correspondiente a la direction 
mencionada.# 


e lo anterior se deduce 
que el articulo que presentamos esta dedica- 
do a como controlar la pantalla. Y efectiva- 
mente, asi es, pero desde un punto de vista 
distinto al habitual del BASIC y, sin embargo, 
sin utilizar codigo maquina ni PEEK's ni PO¬ 
KE'S, a menos que, por razones de velocidad 
de ejecucion, se decide emplear otros medios 
mas rapidos que solo son posibles desde co¬ 
digo maquina, y para los que la base teorica 
que expondremos seguira siendo igualmente 
valida. 

Con las ordenes existentes en BASIC pode- 
mos hacer un monton de cosas «EN la pan- 
talla», pero tambien hay un comando que 
nos permitird hacer otras tantas «CON la pan- 
talla». Y dicho comando no es, ni rnas ni me 
nos, que el comando «OUT». 


EN LA PANTALLA 
Y CON LA PANTALLA 

El comando OUT generalmente pasa desa- 
percibido para el programador normal, sobre 
todo porque en los manuales no se explica cudl 
puede ser su ulilidad practica, limitandose a 
dar en dos lineas una escueta description de 
la action que realiza y nada mas. Transcribi- 
mos para aquellos que no fengan el manual 
a mano: 

zOUT < nurnero de portal >, < expresion 
entera > 

Envia el valor del pardmetro entero al portal 


Aun cuando tan sucinta definition es total- 
mente exacta, lo menos que puede ocurrir es 
que nos deje absolutamente indiferentes si no 
se complementa con un ejemplo o con una ex¬ 
plication de lo que es un portal de salida. 

Intentaremos dar un poco de luz sobre el te¬ 
nia a lo largo del articulo, pero antes, y para 
desperezar los dedos, teclearemos en modo 
directo las siguientes instrucciones, operando 
en MODE 1 y procurando no equivocate: 

OUT &BC00, I [ENTER] OUT &BD00, 20 
(ENTER] 

jQue es lo que ha ocurrido? Aparentemen- 
te, se han inserrado lineas en bianco entre las 
que acaba de escribir, pero intente escribir al¬ 
go, de mas de 20 caracteres, o moverse con 
el cursor mas alia de la columna 20 y vera co 
mo el cursor salta a la primera columna de la 
linea siguiente. jEUREKA! Pensara que hemos 
descubierto el comando WINDOW, solo que 
mas cornplicado. PUES NO. Puede compro- 
barlo tecleando MODE 1, con lo que volve- 
riamos a la pantalla normal, pero que en es¬ 
ta ocasion no sirve de nada. Para ver lo que 
ha sucedido teclee: 

BORDER 15 [ENTER] 

Esta orden pone el borde la pantalla de co¬ 
lor naran[a y, en estas circunstancias, ademas, 
la mitad derecha de la pantalla tambien apa- 
recera de este color, lo que quiere decir que 
la pantalla util se ha reducido a la mitad. Pa¬ 
ra ser mas exactos, los 40 caracteres de una 
linea normal ahora se distribuyen en dos lineas 
de 20 caracteres, es decir, la pantalla de 
25x40 = 1.000 caracteres ahora se ha frans- 
formado en 50 lineas de 20 caracteres. Ima- 
ginese la pantalla como una masa de letras 
que comprimimos horizontalmente: las letras 
al no poder salirse de la pantalla, se despla- 
zaran hacia abajo, reestructurando la visua¬ 
lization, pero sin perderse ni una, solamente 
ue no las Yemos. Compruebeio desplazan- 
o el cursor por debajo de la ultima linea visi¬ 
ble, pulse ESCAPE y siga bajando el cursor 
hasta que empiece el scroll hacia arriba, con 
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lo que aparecerd el «*Break*» que no veia- 
mos antes. 

Para volver a la pantalla normal escriba: 
OUT &BC00,1: OUT &BD0Q,40 [ENTER] 

o resetee el ordenador. 

Ahora se comprendera la diferencia entre 
hacer cosas «EN la pantalla* y aCON la pan- 
tallas, puesto que la orden OUT afectara a to- 
da la pantalla y no a zonas de la misma. 

Antes de que se le ocurra empezar a expe¬ 
rimenter por su cuenta haciendo OUT's a dies- 
tro y siniesrro, estamos en la obligation mo¬ 
ral de advertir que un OUT de cualquier va¬ 
lor en cualquier portal de salida, sin un ligero 
























conocimiento de lo que se hace, puede pro- 
ducir un ^hermoso* bloqueo del sistema, sien- 
do necesario desconectar el ordenador, y si 
no pruebe con: 

OUT &BC00,0: OUT &BD00,1 


UN POCO DE TEORIA 


Todos los ordenadores estdn compuestos fi- 
sicamente por uno serie de elemenios que nos 
permiten trabajar con el. El elemento mas im- 
portante es el microprocesador o Unidad de 


Control de Proceso (CPU), que en los Ams- 
trads es el renombrado Z80A, y que no es 
mas que una pastillita de silicio de unos cuan- 
tos milimetros cuadrados conteniendo cerca de 
8.000 transistores, interconectados de tai ma- 
nera que posibilitan hacer cosas tales como ju- 
gar a marcianitos o llevar la contabilidad de 
una empresa. 

Pero decimas que «po$ibilitan» porque, a pe- 
sar de la potencia del microprocesador, este 
por si solo no es incapaz de hacer absoluta- 
mente nada si no se encuentra conectado con 
otros dispositivos como un teclado, una pan- 
talla o la memaria; mediante los cuales los po- 
demos dar ordenes o recibir los resultados de 
una serie de operaciones o almacenar datos, 
respectivamente. 

El Z80A es el cerebro que controla, directa 
o indirectamente, todas las acciones que rea- 
liza el ordenador, y entre ellas se encuentram 
leer el teclado, manejar la pantalla, generar 
sonidos, controlar el cassette, enviar datos a 
la impresora, leer y escribir en la memoria, etc. 

Nos centraremos en el area del control de 
la pantalla. El Z80 maneia la pantalla indirec¬ 
tamente a traves de un chip o circuito integra- 
do llamado CRTC, cuyas siglas corresponden 
a «Cathode Ray Tube Controllers) 
(Controlador del Tubo de Rayos Catodicos). 

El CRTC realiza las funciones de manfeni- 
miento de la visualizacion en pantalla, coniro- 
lando las dimensiones y la posicion de la zo¬ 
na de exposicion de informacion en la super- 
ficie del Tubo, y generando las direcciones de 
memoria donde estdn los datos de pantalla, 
entre otras cosas. 

Todo esto se consigue utilizando el conteni- 
do de los 18 registros de que dispone el CR fC. 
Podemos entender un registro como un dispo- 
sitivo cuya mision es retener una informacion 
para posteriormente ser tratada por el CRTC. 
Cada uno de estos registros puede contener 
un numero de un byte de longitud, esto es, con 
un valor entre cero y 255. 

Modificando el contenido de los registros del 
CRTC modificaremos las caracteristicas de la 
pantalla, segun hemos podido comprobar. 
como modificar un registro? Nada mas senci- 
llo, con la orden OUT. 

Como ya hemos dicho, el CRTC es un circuito 
conectado al microprocesador, y este se co- 
munica con aquel a traves de unos canales que 
se encuentran en los llamados PORTALES de 
SALIOA. Un PORTAL no es mas que una di¬ 
reccion de memoria donde se depositan da¬ 
tos para ser enviados al dispositivo correspon- 
diente a ese numero de portal. Explicandolo 
de otra forma, hacer un OUT de un Numero 
a un Portal es como enviar una carta con un 
mensaje a una persona, El OUT es ia accion 
de enviar la carta; el Numero seria el mensa¬ 
je, y el Portal seria la direccion de esa perso¬ 
na. 

Necesitamos, pues, conocer la direccion del 
portal de salida correspondiente al Controla¬ 
dor del Tubo de Rayos Catodicos para poder 
enviarle los datos que queramos. 



El CRTC tiene dos portales o direcciones, ca¬ 
da uno de los cuales tiene una mision especi- 
fica. El primer portal se utiliza para indicarle 
al CRTC el numero del registro que queremos 
seleccionar. Y el segundo portal es por don¬ 
de le enviaremos el valor al registro previa- 
mente seleccionado. Las direcciones son: 
&BC00: para seleccionar numero de registro. 
&BD00: para modificar contenido del registro. 

Aun cuando hemos dicho que el CRTC tie¬ 
ne 18 registros, el sistema solo permite acce- 
der a los primeros 16, por lo que el numero 
que tendremos que enviar al primer portal del 
CRTC, el &BC0Q, sera un numero entero en¬ 
tre cero y 15, inclusive, por aquello de que los 
ordenadores empiezan a contar desde cero. 
Lo haremos del siguiente modo: 

OUT &BC0G, < num. reg > siendo num. 
reg > un valor entre 0 y 15. 

para modificar el contenido del registro selec¬ 
cionado: 

OUT &BD00, < dato > siendo < dato > un 

valor entre 0 y 255. 

En la tabla 1 damos los nombres de cada 
uno de los registros, asi como los valores es- 
tandar y los valores minimos y maximos en cu¬ 
ya gama no se bloqueara el ordenador. In- 
sistimos en que cualquier valor fuera de esta 
gama nos obligara a tener que desconectar 
nuestro Amstrad. 

Tambien existen portales de ENTRADA al 
microprocesador, donde recoger datos me¬ 
diante la orden del BASIC IN, pero no los tra- 
taremos por salirse del tema que abordamos. 
Unicamente decir al respecto que un uso ina- 
propiado de las entradas puede ocasionar 
danos fisicos a los circuitos del ordena¬ 
dor. 

Comentar todos y cada uno de los efectos 
que se producen al modificar los registros del 
CRTC con los distintos valores posibles es prac- 
ticamente imposible. Por otra parte, envian- 
do OUT's en modo «directo» y de forma de- 
sordenada nos encontraremos con que es una 
forma un tanto pesada de investigar, y otras 
veces habremos cambiado tantos registros que 
ya no sabremos como volver a la pantalla nor¬ 
mal. 

Por todo ello, creemos que la mejor solucion 
esta en facilitar las cosas con un programa que 
nos permita manejar los registros a nuestro an- 
tojo, pudiendo recuperar la pantalla normal 
cuando queramos y ver que registros hemos 
modificado hasta ese momento, para, de es¬ 
ta manera, sacar nuestras propias conclusio- 
nes de como inciden los diferentes parametros 
enviados al CRTC, sobre todo, pensando en 
el dicho de que una imagen vale mas que mil 
palabras. Todo esto nos lo permjtira el pro¬ 
grama CONTROL DEL CRT» que luego co- 
mentaremos. 
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FUNCIONAMIENTO 
DEL PROGRAMA 
((Control del CRT» 


12 


‘63 
40 
46 
142 
38 
0 

25 

30 

30 


I rsgistros db * 

.- 


0 


0 


48 

0 

192 


63 


Ancho del sincromsmo 
Total Vertical . . 

Ajuste del Total Vertical 
Wprtical Vkuahzado , 

HSU*'- °r°Z 

Mode soiapado y « 9 , b ;do 

^X^ t ‘ Mm ' reo " 

moria de pantalla 

255 Idem (byte bapj ^ 

255 Registro ael curso , Y 
255 Idem (byte bgfgj.. 


255 


Volviendo sobre el famoso dicho, pruebe a 
teclear el siguiente programa que nos mues- 
tra uno forma mas vistosa de presenrar las 
pantallas en nuestros programas: 

10 BORDER 15: MODE 0 
20 FOR a=40 TO 0 STEP-1: GOSUB 60: 
NEXT: '— Recoge Pantalla 
30 GOSUB 70: '—Pintar Pantalla 
40 FOR a = 0 10 40: GOSUB 60: NEXT: 

—Extienae Pantalla 

50 CALL &BB06: GOTO 20:'—Espera pul- 

sacion y vuelve a empezar 

60 CALL &BD19: OUT &BC00J: OUT 

&BDQ0,a: RETURN: Ejecufa OUT's 

70 t=TIME 

80 CLG RND*13 

90 WHILE TIME <t+300 

100 DRAW 640*RND, 400*RND, 13*RND: 

TAG: PRINT CHR$ (RND*26 -f-64)■ 

110 WEND 
120 RETURN 

A las aue posean el juego BEACH HEAD 
les resultard familiar esta forma de recoger la 
pantalla. Esta basada en variar el contenido 
del registro 1 del CRTC entre ios valores 40 
y 0, mediante un bude FOR... NEXT STEP —1, 
para recoger la pantalla, y ai reves, entre 0 
y 40, para extenderla de nuevo. 

Antes de cambiar el registro con Ios OUT's 
correspondientes, hacemos una llamada al 
FIRMWARE, en &BD19, para sincronizar el 
cambio que se va a realizar con el haz de ba- 
rrido de pantalla, consiguiendose una mayor 
suavidaa en el movimiento. Es lo mismo que 
hacer un FRAME en el CPC 6128. Para ver la 
necesidad del CALL &BD19, pruebe a quitar- 


Otro de Ios ejemplos que se me ocurren co- 
mo consecuencia ae indagar con Ios registros 
del CRTC utilizando el programa «CONTROL 
C.RT» es el siguiente: 

10 FOR d=l TO 3: READ men$ 

20 men$ = SPACE$ ((40-LEN (men$))/2) + 

+ men$: '—Centra mensaje 

30 MODE 1 

40 LOCATE 1,20 

50 FOR a = 1 TO 40 

60 letra$ = M!D$ (men$,a,l) 

70 GOSUB 140: '—Ejecufa OUT's 
80 PRINT letra$; 

90 NEXT 

100 FOR r = 0 to 1500: NEXT: '—Refardo 
110 LOCATE 1,25: PRINT STRINGS (20,10): 
'—Sube mensaje 
120 NEXT 
130 RUN 

140 CALL &BD19: OUT &BCOOJ3: OUT 
&BD00,a: RETURN 

150 DATA MICROHOBBY AMSTRAD ESPE¬ 
CIAL 

160 DATA Presenta: 

170 DATA ‘CONTROL DEL CRT* 

Esta vez se modifica el registro 13, que con 
tiene el byte bajo de la direccion de comien- 
zo de rastreo de la memoria de pantalla, por 
lo que, al ir desplazando dicha direccion con 
el comando OUT, se desplaza a su vez la pan¬ 
talla, produciendo un suave SCROLL horizon¬ 
tal de la pantalla. 

Esta ultima tecnica, en combinacion con 
unos cuantos conocimientos de codigo maqui- 
na para obtener la rapide? necesaria, nos per¬ 
mit™ construir un programa que utilizara la 
pantalla de su Amstrad coma un fablon de 
anuncios electronic a todo color, como ya he 
podido ver en algunos sitios. 


Antes de hacerlo correr es conveniente sal- 
varlo en cinta/disco por si hubiera algun OUT 
perdido que nos lo echara todo a perder. 

Primero tenemos una pantalla de presenta- 
cion en la que se explica la funcion y el mane- 
jo del programa, para, despues de ver una pe- 
quena demostracion del uso del CRTC, apa- 
recer la pantalla de trabajo con un informe del > 
estado actual de Ios registros, el valor estan- 
dar entre corchetes y el nombre de Ios mismos. 

Abajo, a la derecha, y recuadrado, (enemas 
Ios dos Modos de funcionamiento, aparecien- 
do en video inverse el modo activo. 

En modo «Ejecutar» podemos modificar 
Ios registros sin que se observe su efecto, has- 
ta pulsar las tecias CTRL-1 E. 

En modo «lnmediato», nada mas modi¬ 
ficar un registro, se ejecuta la accion inmedia- 
tarnente. 

Se puede cambiar de modo en cualquier mo- 
mento pulsando las tecias SHIFT. 

En cuanto seleccionamos un registro, su 
nombre aparece en video inverso y el pragra- 
ma espera la pulsacion de una de las tecias 
posibles que se visualizan en la ultima iinea y 
que son: 

«V»: Visualiza el rango permitido y espera 
la entrada del data a enviar al registro. 

«Cursor Arriba/Cursor Abajo»: Incremen- 
ta/Decrementa el contenido del registro en una 
unidad. 

Cualquier otra teda, ast como un valor fuera 
de rango, anula la accion, produciendo una 
serial acustica de error. 

En la pantalla se informa con un asferisco 
del ultimo registro modificado, y, en video in¬ 
verso apareceran Ios valores que no sean es- 
fandar, al objeto de una mas facil localizacion. 

Si se llega a perder el control de la panta¬ 
lla, pulsando la tecla «N» volvemos a la pan¬ 
talla normal, apareciendo el mensaje: PULSE 
UNA TECLA PARA VOLVER AL ESTADO AN¬ 
TERIOR. 

Si en ese momento estamos en modo Inme- 
diato y pulsamos cualquier tecla, excepto 
SHIFT, volveremos al caso anterior; pero si pul¬ 
samos SHIFT, cambiamos al modo Ejecutar, 
por lo que, al pulsar otra tecla, se mantiene 
la pantalla normal, pudiendo restaurar Ios re¬ 
gistros al valor que queramos hasta que pul- 
semos las tecias CTRL 4- E para observar el 
efecto que se produce. 

Con la tecla «X» veremos cuatro de las infi¬ 
nites posibilidades que nos presenta el mane- 
jo del CRTC. 

Por fin, pulsando «T» termina el programa 
restaurando Ios valores normales del CRTC. 

Finalizar aclarando que el registro r3, An¬ 
cho del Sincronismo, es muy inestable, por lo 
que el programa no permite acceder al mis¬ 
mo. No obstante, el que quiera aventurarse 
solo tiene que modificar la Iinea 710 quifan- 
do la condicion «OR tee = 4». jAh!, y que 
alterar Ios registros que se refieren al Cursor 
no produce efecto aiguno. 


28 M. AMSTRAD ESPECIAL 














10 '*..* 

20 '* CONTROL CRT * 

30 '* por J.F.Bayo * 

40 '* Nayo 1986 * 

50 * 

60 : 

70 '::: PRESENTAC10T4 
80 : 

90 MODE 2:U!1ND0W 8,80,1,25 
100 i$=CHR$(24) 

118 PRINT ,i* SPC(7) ’*** CONTROL 
DEL CRT ***■ SPC<7)i$:PRIMT 
128 PRINT* El prograraa perriite est 
udiar los efectos que se producen e 
ft la* 

130 PRlNT'pantalla al cansbiar el co 
ntenido de los registros del CRTC < 
Con-* 

140 PRINT"trolador del Tubo de Rayo 
s Catodicos) utiiizando la orden OU 
T de* 

150 PRINT'BASIC.*:PRINT 
160 PRINT* Para nodi-ficar un regis 
tro pulsanos la tecla corresponds 
te a* 

170 PRINT'su valor en hexadecinal, 
iluriinandose el norebre del rismo; y 
el* 

180 PRINT'dato se cambia nediante:’ 
SPRINT 

190 PRINT,*V para entrar un dato, s 
eguido de ENTER.* 

208 PRINT, CHR$(240M* Incrementa e 
1 dato, y ®+CHRt<241) + * Decrenenta 
el dato.* 

210 PRINT* Aparte :* 

228 PRINT,"N restaura la pantalla N 
ormal.* 

238 PRINT,*T para Tentinar (previa 
restauracion).* 

248 PRINT,*X Muestra cuatro ejenplo 
s*SPRINT 

250 PRINT* El programa no permite 
entrar datos que puedan bloquear el 
or-* 

268 PRINT’denador, La ultima linea 
in-forroa de las teclas pernitidas.’s 
PRINT 

278 PRINT* Hay dos Modos de -funcio 
namiento: lnmediato y Ejecutar, co 
nmu-* 

280 PRINT*tables con la tecla (SH1F 
T> en cualquier momento.*;PRINT 
298 PRINT TA8(23) !*♦* PULSE UNA TE 
CLA 
388 : 

310 IN1CIALI2AC10N ::: 


320 : 

338 DEF1NT a-u 

348 DIM stat<3,15) ,not»$<15) 

358 FOR a=0 TO 15 

368 READ stat(0,a),$tat(l,a),stat(2 
,a),non$(a) 

370 stat(3,a)=stat(2,a) 

388 M=MIM<STM(stat(3,a)),2) 

390 f<=SPACE*<3-LEN(«))+tt 
408 nom*(a)=*[ , N$4 , l *4non$(a) 

41® NEXT 

420 ENT -1,1,10,1:ENT -2,1,-18,1 
438 ENV 1,7,1,1,7,-1,1:ENV 2,1,18,1 
,18,1,1,15,5,1,15,-1,15 
44@ mascl$=i$+*6<*+i$:raasc2$=i$+' dll 
0 Mii 



450 n$(8)='Ejecutar '1)=*limedi 
ato* 

460 CALL &8B86:B0RDER 12 

470 REM MIN,MAX,STANDAR,N0MBRE DEL 

RE6ISTR0 

488 DATA 46,108,63,Total horizontal 

498 DATA 8,64,40,Horizontal Visuali 
zado 

580 DATA 8,63,46,Position sincronis 
no horizontal 

510 DATA 0,255,142,Ancho del sincro 
nisno (No Accesible) 

520 DATA 0,255,38,Total Vertical 
530 DATA 0,255,8,Ajuste total Verti 
cal 

540 DATA 8,58,25,Vertical visualiza 
do 

558 DATA 0,255,38,Position sincroni 
sno vertical 

568 BATA 8,255,8,Mode solapado o se 
sgado 

570 DATA 8,255,7,Nuraero lineas de b 
arrido 

588 DATA 0,255,8,Ccnienzo del curso 
r \ 

598 DATA 0,255,0,Fin del cursor 
600 DATA 0,255,48,Direccion conienz 



o rastreo (byte alto) 

610 DATA 1,255,0,Idem (byte bajo) 

620 DATA 0,255,192,Registro del cur 
sor (byte alto) 

630 DATA 0,255,0,lden (byte bajo) 

640 : 

650 GOSUB 148i: / *** DEMOSTRACION ** 

* 

660 : 

67B CONTROL ENTRADAS ::: 

680 : 

698 GOSUB 848:'inkeyT 

708 tec=IN5TR(’0123456789ABCDEFNTX" 

4CHRT(5),q$) 

710 IF tec=8 OR tec=4 THEN SOLND 7, 

600,-2,8,1,2:GOT0 690 

728 IF tec=17 TH0T GOSUB 1208:GOTO 

698 

738 IF tec=18 THEN 1280 
748 IF tec=19 THEN GOSUB 1348sGOSUB 
1308:GOTO 690 

758 IF tec=20 THEN GOSUB 1278:G0T0 
698 

760 reg=tec-l 

770 LOCATE 26,reg+3:PRINT USING mas 
d$;non$(reg) 

780 LOCATE 28,23:PRINT'(V) (Flechas 
cursor) Cualquier otra anula la ac 
cion* 

790 GOSUB 848 

8B0 IF q$=*v* OR q*=*V* TH01 LOCATE 
1,23:PR3NT CHR4(18HCHR*(11>:PRINT 
*ETNTRAR DATO CstaKB.reg)'.. .“stat 
(l,reg)") (ENTER para volver):';:L! 
NE INPUT **,v$:v=VAL(vl):1F STR$(v) 
=* *+v4 THEN IF v(=stat(l,reg) AND 
v)=stat(8,reg) THEN stat(3,reg) s v:G 
0T0 890 

810 IF qf=CHM(248) AND stat(3,reg) 
<stat(l,reg) THEN stat(3,reg)=stat( 
3,reg)+1:GOT0 890 

828 IF q*=CHR$(24i) AND stat(3,reg) 
>stat(8,reg) THEN stat(3,reg)=stat( 
3,reg)-l:GOTO 898 

838 SOUND 7,680,-2,8,1,1:LOCATE 28, 
reg+3:PRINT nont(reg):G0SUB 1309:GQ 
TO 698 

848 IF INKEY<21)0-1 THEN m=m XOR 1 
:LOCATE 48, 204m: PRINT USING mascM; 
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i» 4 <n): LOCATE 48,21 -n:PRINT irid-n): 
GOSUB 1838 

858 q*=UPPEW<lNKEY$):lF q*=" THEN 
848 ELSE RETURN 
868 : 

878 ':::: OUT ::::: 

888 : 

890 IF i *=8 THEN 918 

986 OUT Sf 8 C 00 ,reg:OUT iBDBB.statO, 

reg) 

918 IF TEST( 148 , 84)01 THEN GOSUB 1 
138 

920 LOCATE 28 ,reg+ 3 :PRINT ncriKreg) 
938 LOCATE 8 ,reg 43 ;PRINT**‘ 

948 LOCATE 15 ,reg+ 3 :IF 5 ta 1 ( 3 ,reg)= 
stat( 2 ,reg) THEN PRINT USING ’ III 
'isiat( 3 ,reg) ELSE PRINT USING riasc 
2 $;stat( 3 ,reg) 

958 IF regOureg THEN LOCATE 8 ,ureg 

+ 3 :PRTNT‘ 1 

968 uregpreg 

978 G 0 SU 8 1388 [GOTO 698 

988 : 

990 '::: ESTAOO DE LOS REG 1 STR 0 S :: 

» 

1888 : 

1818 ORIGIN 8 , 0 :DRAU B, 399 :DRAU 639 
, 399 :DRAW 639 , 0 :DRAU B, 8 :M 0 UE 3 , 0 :D 
RAUR 0 | 399 :NOME 638 , 8 ;DIWWR 8,399 
1828 FOR a=B TO 28 ;INK 8 , 12 : 1 NK 8,6 
:INK 8 , 24 :NEXT: 1 NK 8,1 
3838 PRINT TAB( 6 ) it+" ESTADO ACTUA 
L, ESTANDAR Y NGI 4 BRE DE LOS REG 1 STR 
OS DEL CRTC '+i* 

1848 PRINT 

1858 FOR a =0 TO 15 

I 860 PRINT TAB( 18 )'r *+CHR 4 <a+ 48 =(a 

) 9 )» 7 )+* =■;: PRINT USING 1 III ’jst 

at( 3 ,a):LOCATE 28 ,a+ 3 :PRlNT notrt(a) 

1078 BORDER 26 -a:INK l, 9 +a:NEXT 

1888 LOCATE 48 , 20 :PR 1 NT USING nasci 

i;n$( 0 ) 

1898 LOCATE 48 , 21 :PRINT rrt(l) 

1108 PLOT 404 , 84 :DRAWR 144 , 8 :DRAUR 
8 ,- 48 :DRAWR - 144 , 8 :DRAWR 8,40 
1110 PLOT 482 , 78 :TAG:PRINT'<C 7 RLtE> 

1 ;:TAGOFF 
1128 GOTO 1168 

1138 LOCATE 5 , 28 :PRINT '* mdica el 
ultitio ragistro nodificado* 

1148 PRINT TAB( 5 )'En video inverso 
1 os datos no Estasidar' 

1158 PLOT 68 , 84 :BRAyR 3 I 2 , 8 :DRAMR 8 

,- 48 :DR^R - 312 ,®:DRAUR 8,48 
1168 80 SU 3 1388 :RETURN 
1179 : 

1188 '::: PANTALLA NORMAL ::: 


1198 : 

1208 FOR a=0 TO 15:OUT 4BC0B,a:OUT 
&8D88,stat<2,a):NEXT 
1218 IF tec=19 THEN RETURN 
1228 IF Uc=18 THEN LOCATE 1,1:040 
1230 LOCATE 1,23:PRINT CHRI(IB) 

1240 LOCATE 18,23:PRINT i*+' PULSE 
UW TECLA PARA UOLUER AL ESTADO AN1 
ERIOR "+i$ 

1258 60SUB 848 

1268 GOSUB 1308:IF n=0 THEN RETURN 



1278 FOR a=0 TO 15:0UT 4BC88,a;0LTT 
4BD88,5iat(3,a):NEXT 
1288 RETURN 
1298 : 

1381 LOCATE 1,23:PRINT il+j Teclas 
posibles: ’+i^+" 8,1,2,4,5,6,7,8,9, 
A,B,C,D,E,F <N> <T) <X)=Ejeniplos.' + 
CHR$(38):RETU04 
1318 : 

1320 ':::: EJEMPLOS :::: 

1338 : 

1349 GOSUB 1289 

1358 LOCATE 1,23iPRINT*ELEGIR EJEMP 
LO (1,2,3,4) (ENTER para volver)'4C 
HR$(18) 

1368 60SUB 848 

1378 ej=INSTR('1234 , ,q$):lF ej=§- TH 
EN RETURN 

1388 ON ej GOSUB 1540,1620,1788,379 
8:RETURN 
1398 : 

1488 DEMOSTRACION = 

1418 : 

1428 FOR a=25 TO 0 STEP-1:60SUB 147 
8:NEXT 

1438 MODE 2:W1ND0U 5,79,2,24 
1440 FOR a=B TO 25:GOSUB 1478:NEXT 
1458 SOUND 7,8,8,0,2,8,31:OUT 4BC88 

,8:OUT &BD88,1 
H68 GOTO 1488 

1478 CALL 4BD19:0UT &BC88,1 ;0LTT &BD 
88,INT(1.6*a):0UT 4BC00,6:OUT 4BD88 
,a:SOUND 2‘(a NOD 3),1,7,13,8,0,145 


:RETURN 

3488 INK 3,8:GOSUB I018:'ESTADO ... 
LOS REGISTROS 

I49§ OUT ABC08,8:OUT 48088,8 
1580 RETURN 
1510 : 

1528 '= EJEMPLO 1 = 

1538 : 

1548 FOR a=40 TO 8 STEP -j:60SUB I 1 
8B:NEXT 

1558 GOSUB 1830 

1568 FOR a=0 TO 48:GOSUB 1588:NEXT 
1578 RETURN 

1588 CALL 4BD19:0UT 4BC00,1:QUT 
08,a:RETURN 
1598 : 

1688 '= EJEMPLO 2 = 

1618 : 

1628 FOR a~25 TO 8 STEP -1:G0SU8 1^ 
60:NEXT 

1638 OUT 4BCB8,1 :OUT 4BD88,8:60SUB 
1830:OUT 4BCB8,1:0UT 48DB0,48 
1648 FOR a=8 ID 25:GOSUB 1668:NEXT 
1658 RETURN 

1668 CALL 4BD19:0UT 4BG0B,4:OUT 4BD 
88,a:RETURN 
1678 : 

1688 '= EJEMPLO 3 = 

1698 : 

1788 FOR a=48 TO 0 STEP -I:GOSUB 17 
48:NEXT 

1718 GOSUB 1838 

3728 FOR a=0 TO 48: GOSUB 1748:NE)a 
1738 RETURN 

1748 CALL 4BD19:DUT 4BC8B,I:0UT 4BD 
8B,a:0UT 4BC88,2:0UT 4BD0B,a+6:RETU 
RN 

1758 RETURN 
1768 : 

1778 '= EJEMPLO 4 = 

1788 : 

1790 FOR b=8 TO 38:(ALL 480) 9:FOR a 
=8 TO 5:6QSUB 181 §:NEXT;FOR a=4 TO 
0 STEP -1:GOSUB 1818:NEXT :NEXT 
1888 RETURN 

1818 OUT 4BC88,5:0UT &BD00,a:RETURN 
1828 : 

1838 FOR (=0 TO 588:NEXT:RETURN 



no reckeo W Irabqo dor 6, M.H. AMS- 
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itNe merrsoaf. tok/fanotfo. 


30 M. AMSTRAD ESPECIAL 






























Ofites Informatica 

Presents: la tablets grafica 

GRAFPAD n- 

LO ULTIMO EN DISPOSITIVOS DE ENTRADA DE GRAFICOS 
PARA AMSTRAD, COMMODORE Y BBC 


La primera tablets grafica, de bajo costo, en ofrecer la duration y prestaciones requeridas por las 
aplicaciones de negocios, industria, hogar y education. Es pequena, exacts y segura. No necesita 
ajustes ni mantenimiento preventive. GRAFPAD II es un producto unico que pone la potencia de 
la tecnologia moderna bajo el control del usuario. 


ESPECIFICACIONES 



MMCft BAR 
HRRDMOOD C ILL 
PIICHHRSI IC 
SCRCEO 
DPC 

100mm COHCRE) 
FLOOR ON 300* 
D?M OR 100mm 
M in HARDCORE 
CRUX TV FILL 
BE 1 ME EH FftCIl 


INNER LEROES 


400mm HIDE 

TREHCH'FILL 

FOOTINGS 


COMBINA EN UN UNICO DISPOSITIVO TODAS LAS 
PRESTACIONES DE LOS INTENTOS PREVIOS DE 
MECANISMOS DE ENTRADA DE GRAFICOS. LAS 
APLICACIONES SON MAS NUMEROSAS QUE EN LOS 
DEM AS DISPOSITIVOS COMUNES E INCLUYEN: 

setecctdn de opciones entrada de modelos recogida de 
datos diseno logico diseno de circuit!* creaci6n de 
imageries atmacenamiento de irndgenes recuperacirin de 
imigenes diseno para constructidn C.A.D. (diseno asistido 
por ordenador) ilustiacion de textos juegos disefio de 
muestras -xkicaciAn diseno PCB 


DE VENTA EN LOS MEJORES COMERCIOS DE INFORMATICA 
Si Vd. tiene alguna dificultad para ohtener la tableta grafica, puedc 
dirigirse a: 


Avda. Isabel II. 16 -IP 
Tels. 455S44 - 455533 
Telex 36698 

20011 SAN SEBASTIAN 


CONDICIONES ESPECIALES PARA DISTRIBUIDORES 


RES0LUC10N: 

1.280 x 1.024 pixels. 

PRECISION: 

1 pixel. 

TASA DE SALIDA: 

2.000 pares de coordenadas por 
segundo. 

INTERFACE: 

paralelo. 

ORIGEN: 

borde superior izquierdo o 
seleccionable. 

DIMENSIONES: 

350x260x 12 mm. 

DISPON1BLE AMSTRAD: 
CASSETTE .... 23.900 ptas. 
DISCO .. 25.900 ptas. 

(IVA NO INCLUiDO) 


FACIL DE USAR 
TRAZADO PCB. 

C.A.D. 

AREA DE DISENO DIN A4. 
COLOR EN ALTA 
RESOLUCION. 

USO EN HOGAR Y 
NEGOCIOS. 

VARIEDAD DE PROGRAMAS 
DISPONIBLES. 

DIBUJO A MANO ALZADA, 
DIAGRAMAS DE CIRCUITOS 


S. 





















Modificador 

DE CA DEN AS 

psswsasr-s§H22" 

ar ^'>%r}S 

conoceran lo esta tarea . 


partir de ahora, la mo 
dificacion de cadenas de un programa Basic, 
resuliara lo mas sencillo del mundo si nos ayu- 
damos del programa que aparece listado en 

este orticulo. 

Debemos advertir en primer lugar que nues- 
tro programa trabaja unicamente con progra 
mas que esten salvados en formato fichero. 

Si deseamos trabajar con un programa que 
no se encuentre en este formato, deberemos 
hacer lo siguiente: 

— Cargar el programa en memoria con: 
LOAD"PROGRAMA 

— Salvar el programa de la forma siguien¬ 
te: 

SAVE"PROGRAMA",A 

de esta forma nuestra rutina ya podra traba¬ 
jar con el, puesto que ahora se encontrara sal- 
vado como fichero de caracteres o fichero AS¬ 
CII. 

La rutina encargada de efectuar el trabajo 
esta ubicada a partir de la direccion hexade¬ 
cimal &AOOO y tiene una longitud de 1135 
bytes. Por lo tanto no podremos trabajar con 
programas Basic que ocupen dichas direccio- 
nes. 

Debemos aclarar que esto no es un gran in¬ 
convenient©, debido a que apenas ningun pro 
grama escrito en Basic ilega a ocupar esas di 
recciones, ya que generalmente no suelen ser 
demasiado exfensos. 

De lo dicho anter ormente, se deduce que 
el programa modificador de cadenas no po- 
dra trabajar con programas Basic que supe- 
ren los 39 K de longitud. 


La solucion dell pe or 
de los casos 

Si en alguna ocasion necesitaramos traba¬ 
jar con programas de gran extension, que su- 
perarcm los 39 K de memoria, no deberemos 
alarmarnos, puesto que tocto tiene solucion. 

Dicha solucion seria partir nuestro progra¬ 
ma en dos, es decir, deberiamos cargar el pro¬ 
grama en memoria y salvar unicamente la mi- 
tad, y a continuacion volver a cargarlo en me¬ 
moria y salvar la otra mitad. 

Ahora estariamos en condiciones de traba 
jar con cada una de las dos mitabes sin pro- 
blemas de memoria. 

Una vez hubiesemos finalizado el trabajo 
eargariamos el primer programa y a continua¬ 
cion hariamos un MERGE del segundo progra¬ 
ma, con lo cual tendnamos el programa otra 
vez complete y modificado. 

Realizadas estas advertencies y apuntadas 
las posibles soluciones a los problemas con los 
que nos podemos encontrar, pasaremos ahora 
a explicar el manejo del programa modifica¬ 
dor de cadenas. 


il programa 


Con lo primero que nos encontramos al eje- 
cutar el programa, es con un menu de ayuda 
en el que se encuentran las siguientes opcio' 
nes: 


ORDENES DEL 
MODIFICADOR 


B — Basic 
L — Listar 

C — Cargar (LOAD) 

S - Salvar (SAVE) 

F — Cambiar cadenas 



La primera de las opciones tiene como uni- 
co objeto, permitirnos retornar al Basic. 

La opcion "LISTAR", nos permitird listar 
el programa que se encuentre en memoria en 
ese momenta. Si no hemos cargado ningun 
programa, al elegir esta opcion. aparece un 
mensaje indicandonos que no existen ningun 
programa en memoria. 

Cuando se elija la opcion CARGAR, se nos 
pedira el nombre del programa que deseamos 
cargar en memoria. Una vez escrito dicho 
nombre, deberemos pulsar "ENTER", 
Mientras se este ejecutando la cargo del pro- 
rama, apareceran unas imeas en la panto- 
a, pero eso no nos debe asuslar, ya aue di¬ 
chas rayas son debidas a que se he elegido 
dicha zona de memoria como buffer de car¬ 
go. 

Se ha hecho de esta forma con el fin de aho- 
rrar memoria ya que dicho buffer necesita: 2 k. 
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Otra de las opciones que posee es ia que 
permite salvat el programa que tenemos en 
memoria en disco o cinta. En esta opcion vol 
veran a aparecer las rayas mencionadas an- 
teriormente, debido a que se utiliza el mismo 
buffer de memoria. 

For ultimo, se nos ofrece la posibilidad de 
modificacion de caaerias de caracteres. Esta 
opcion nos permitira cambiar una cadena por 
otra de una longitud no superior a 20 carac¬ 
teres. Si la longitud de la cadena de caracte¬ 
res que se desea modificar es superior a di- 
cha cifra, entonces se debera efectuar el cam- 
bio en dos pasadas, es decir, deberemos mo¬ 
dificar en primer lugar los primeros 20 carac¬ 
teres y a continuacion los restantes. Cuando 
deseemos modificar alguna cadena, lo prime- 
ro que hard el programa sera preguntarnos 
cual es la cadena que se desea cambiar; una 
vez introducida, deberernos pulsar "ENTER". 


A continuacion se nos pregunfara cuai es la 
caaena que debe sustituir a ia anterior. 

Cuando se hayan dado estos parcimetros, 
el programa buscara una cadena iaentica a 
la primera que hayamos dado, y la cambiard 
por la ultima. 

Cuando haya finalizado el trabajo, se im- 
primird un mensaje indicando que dichas ca- 
denas se han modificado. En el caso de que 
no encuentre ninguna cadena de caracteres 
igual a la que hemos introducido, nos lo indi¬ 
card con otro mensaje. 


Funcionamiento 
y rutinas principales 

Vamos a ver ahora cudles son las rutinas 
mas importantes de que se compone nuestro 
programa. 

Para hacernos una idea de conjunto del pro¬ 
grama realizaremos una especie de diagrama 
de flujo con el cual podremos ver globalmen- 
te los pasos a seguir. 


diagrama de 


lectura del tedado. La rutina permanecera en 
dicho bucle hasta que no sea pulsada alguna 
de las teclas predeterminadas. 

Cuando se detecte la pulsacion de alguna 
de las teclas que indican al programa que se 
ha elegido una opcion, se enviard el control 
a la rutina que corresponda, y una vez finali¬ 
zado el trabajo se retornara al bucle princi¬ 
pal de lectura de teclado. 

La primera subrutina con la que nos encon- 
tramos en el programa, es la encargada de 
efectuar la cargo. 

Para averiguar cual es el nombre del pro¬ 
grama que se desea cargar, efectuamos una 
llamada a la rutina INPUT, la cual nos pedira 
el nombre del fichero que deseamos introdu¬ 
ce en la memoria del ordenador. 

Hecho esto se reiorna a la rutina LOAD para 
efectuar dicha cargo, utilizando las rutinas del 
firmware capaces de leer un programa en for¬ 
ma de fichero ASCII. 

Una vez finalizada su farea, reinicializa la 
pantalla y devuelve el control del programa 
al bucle principal para detector la eleccion de 
otras opciones. 




INICIAUZACION 

lectura 


NINGUNA 

TECLA 


PULSADA 


SE HA PULSADO 
ALGUNA DE 
LAS TECLAS B, L, 


C, S, F 


TECLA L 


LISTADO DEL 
PROGRAMA 


TECLA C 

CAKGA DE 
PROGRAMA 


TECLA S 


SALVA EL 
PROGRAMA 


TECLA F 


MODIFICA 

CADENAS 


En primer lugar hacernos una inicializacion 
de todos los pararnetros que utilizaremos du¬ 
rante la ejecucion del programa, seguidamen- 
te preparamos la pantalla eligiendo el mode 
en el que vamos a trabajar. 

Activamos una ventana, en la cual imprimi- 
remos el menu de opciones. En este caso se 
ha elegido una situada en la parte superior de 
la pantalla. 

Una vez hecho esto, entramos en el bucle 
principal del programa, donde se produce la 


Rutina de listar 

Hi 

Otra de las rutinas que componen el pro¬ 
grama es la encargada de producir un lista- 
do en pantalla. Para ello se toma la direccion 
inicial del programa, y a partir de ahi va to- 
mando los caracteres que encuentra en me 
moria y los imprime en pantalla. 

Cuando se detecta que se ha llegado al fi¬ 
nal del programa, retorna al bucle principal. 
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A continuation nos encontramos con la ru- 
tina mas importante de nuestro programa, se 
trata de la rutina encargada de modificar las 
cadenas de caracteres. 

En primer lugar, se llama a la rutina INPUT, 
para conseguir la information de que caae- 
na debe modificar y por cual ha de sustifuir- 
la. Cuando ha conseguido dichos datos, intern 
ta detector una cadena identica a la dada, si- 
no lo consigue devuelve el control al bucle 
principal imprimiendo el mensaje de que no 
ha encontrado ninguna cadena. 

En caso de que se encuen*re con una cade¬ 
na de caracteres identica a la que se ha da¬ 
do, entonces se encarga de susiituirla por la 
nueva, reservando el espacio de memoria ne- 
cesario para la nueva cadena de caracteres 
a introducir, y eliminando al mismo tiempo el 
espacio de memoria que ocupaba la antigua. 

Una vez realizada la misma operation con 
todas las cadenas de caracteres idenficas a la 
dada, imprime el mensaje correspondiente y 
retorna al bucle de lectura de teclado. 

Por ultimo nos queda comentar la rutina de 
SAVE, esta hace una llamada a INPUT para 
saber que nombre debe dar al nuevo fichero, 
y a continuation se almacena en cinta o dis¬ 
co. 

Despues de finalizar su trabajo, initialize la 
pantalla y retorna al bucle principal. 

Una vez realizada la description del funcio 
namiento de la rutina y dados las instruccio- 
nes para su correcto funcionamiento, unica- 
mente queda copiar el listado de dicho pro- 
grama. 


Manipulation 
del listado 


Para ello, deberemos copiar el listado en- 
samblador que aparece al final del articuio, 
y salvarlo en cinta o disco. 

Tambien ofrecemos un cargador Basic, pa¬ 
ra aquellos que prefieran fedearlo directamen- 
te en forma de DATAS. 

Aquellos que elijan esta ultima opcion. de- 
berdn ejecutar el programa cargador una vez 
tecleado, y en el caso de que aparezea aigun 
mensaje de error, se deberdn revisar las lineas 
DATA. 

Si dicho mensaje no aparece, indicara que 
todo ha ido bien, y por lo tanto estaremos en 
condiciones de salvarlo en cinta o disco. 

Para ello haremos lo siguiente: 

SAVE"CADEN AS",B,&A000,1135 

Cuando se quiera trabajar con el modifica- 
dor de cadenas, deberemos escribir un pro¬ 
grama BASIC como el que se indica a conti¬ 
nuation: 

10 MEMORY &9FF 
20 LOAD"CADENAS)),&AOOO 
30 CALL &AQ0Q 

No queda nada mas que decir, solo desear 
que este programa os sea de gran utilidad. 
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10 
20 
30 
40 
50 
60 
70 
BO 
90 
too 
110 
120 
130 
140 
150 
160 
170 
1 BO 
190 
200 
210 
220 
230 
240 
250 
260 
270 
2B0 
290 
300 
310 
320 
330 
340 
350 
360 
370 
390 
390 
400 
410 
420 
430 
440 
430 
460 
470 
4B0 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
6B0 
690 
700 
710 
720 
730 
740 
730 
760 
770 
790 
790 
BOO 
BIO 
B20 
930 
B40 
950 
860 
B70 
BBO 
990 
900 
910 
920 
930 
940 
930 
960 
970 
9B0 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1090 
1090 
1100 
1 110 
1120 
1 130 
l 140 
1 150 
1 160 
1170 
1 1 BO 
l 190 
1200 
1210 
1220 
1230 
1240 
1230 
1260 
1270 
1 2B0 


inOOIFICADQR DC CAKNAfi 
ORG 4AOOO 
LO H-,0 
LO (FINPRO) ,H_ 
CALL VENTAN 
JP TEC 
VENTAN: LO A, 2 

CALL tBCOE 
LD A, 1 
CALL ■BB94 
LD HL,0 
LO DC,#5001 
CALL #BB66 
LD A, 1 
CALL 4BB96 
XOR A 
CALL #BB90 
CALL 4BB6C 
LD HL,TXT 
QTRPDi LD A, (hi.) 

CP 255 
JR Z,FUCRA 
CALL 4BB5A 
INC hi. 

JR OTRPQ 
FUERA: XQR A 

CALL MBBB4 
LD hi., 40002 
LO DC,45019 
CALL 4BB66 
RET 


l 

TECt LD A,54 

CALL 4BB1E 
RET NZ 
LD A,36 
CALL 4BG1E 
JR 2 ,PASTl 
CALL IHPRE 
PAST 11 LD A, 60 

CALL 4BB1E 
JR Z.PAET2 
CALL SAVE 
PA6T2s LD A, 62 

CALL 4BB1E 
JR Z.PABT3 
CALL LOAD 
PAST3j LD A, 53 

CALL 4BB1E 
JR Z,TEC 

CALL BUSCA 
JR TEC 


LQAOl CALL 4BB6C 
CALL 1_LQAD 
CALL 4BB6C 
LD A, <L_LOAD) 

LD B, A 

LD HL,N_LQAD 
LD DE,UGOAO 
CALL 4BC77 
JP NC,ERROR 
LD hi., 3000 
BULEC: CALL 4BCB0 

JR NC,FINIT 
LO (HL),A 
INC HL 
JR BULEC 
FiNITt DEC hi 

LD IF INPRD),HL 
CALL 4BC7A 
CALL VENTAN 
LD hi.,iO90D 
LD DE,TXTPL 
CALL PRINT 
RET 

1MPRE: CALL 4BB6C 

LD HL,(FINPRD) 
LD A, H 
OR L 

JP Z.NQPRQ 
LD DE,5000 
OTRAt PUSH DE 

LD A,66 
CALL 4BB1E 
CALL NZ.PAUSA 
POP DE 
LD A,(DE) 

CALL 48B3A 
INC DE 

LD hi., (FI NPRQ) 

LD A, H 
CP 0 

JR NZ.OTRA 
LD A, L 
CP E 

JR N2,OTRA 
RET 

PAUSA* LD BC,40000 
PAUSi DEC BC 
LO A, B 
OR C 

JR NZ,PAUS 
CALL 4BB03 
CALL 4BB18 
RET 

! 

;BUSCA CADENA 


VULVi 

BUCt 


LO HL,(FINPR01 
LD A, H 
OR L 

JP Z,NQPRO 

XDR A 

LD (NUHCA),A 
CALL 4BB6C 
CALL N0HCA1 
CALL 4BB6C 
CALL NONCAN 
CALL iBB6C 
LD HL,CADENV 
LD DE,5000 
LD I X,1000 

LD B, 0 

LD A, (LONCV) 

CP B 


1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1390 SIQUi 

1390 

1400 

1410 

1420 

1430 

1,440 

1450 

1460 

1470 

14B0 INCCQi 

1490 

1500 

1510 FIN: 

1520 DTRDCi 

1330 

1540 

1350 

1560 

1570 

1580 

1390 

1600 PONBUi 
1610 
1620 
1630 
1640 
1650 
1660 

1670 FINRUi 
1690 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1790 
1790 
l BOO 
1910 
1820 
1930 
1940 
1930 
1860 
1870 
1 BBO 

1B90 8IQCA: 

1900 

1910 

1920 

1930 SAVE i 
1940 
1950 
1960 
1970 
1990 
1990 
2000 
2010 
2020 
2030 
2040 
2030 

2060 QTRCAi 
2070 
20B0 
2090 
2100 
2110 
2120 
2130 
2140 

2130 PAS 11 
2160 

2170 FINSA: 
2190 
2190 
2200 

2210 NDftCAl: 
2220 
2230 
2240 
2250 
2260 
2270 
2290 
2290 
2300 


JR I,FIN 
PUSH hi. 

LD hi., (FINPRO) 
LO A, D 
CP H 

JR NZ,GIGLI 
LD A, E 
CP L 

JR I,FINRU 

POP HL 
LD A,(DE) 

LD (IX+0>,A 
CP (hi.) 

INC DE 

INC IX 

JR 2,INCCO 

LD B,0 

LD HL,CAD£NV 

JR BUC 

INC B 

INC HL 

JR BUC 

LO (D1REC),DE 

DEC IX 

DJNZ QTRDC 

LO A, (MLMCA) 

INC A 

LD (NUHCA),A 
LD A,(LONCN) 

LD B, A 
LD HL.CADENN 
LD A,(HL) 

LD (IX +0),A 

INC IX 

INC HL 

DJN2 PON8U 

LD HL.CADENV 

JR VULV 

POP HL 

PUSH IX 

POP HL 

LD DE,4000 

ADD HL , DC 

LD (FINPRQ),H 

LD DE,5000 

SCF 

CQF 

SBC HL, DC 
LO B,H 
LD C,L 
LO HL,1OOO 
LD DC,5000 

LDIR 

LD A, (NUHCA) 

CP 0 

JR NZ.SIQCA 
LO hi. ,40800 
LD DE,TXTNOC 
CALL PRINT 
RET 

LD HL, 40800 
LD DE,TXTSIC 
CALL PRINT 
RET 

CALL 4BB6C 
LD HL,(FINPRO) 
LO A,H 
DR L 

JP I ,NQPRO 
CALL 1_SAVE 
CALL 4BB6C 
LD A,(L_SAVE) 

LD B, A 
LD HL,N_6AVE 
LD DE.4C0A0 
CALL 4BCBC 
LD DE, 5000 
LO A,(DE) 

CALL 4BC95 
LD HL,(FINPRO) 
LD A,H 
CP D 
JR N7,PASI 
LD A, L 
CP E 

JR Z,FINSA 
INC DE 
JR QTRCA 
CALL 48C0F 
CALL 4BC92 
CALL VENTAN 
RET 

LD A,20 
LD (H1RL0N+1) , A 
LD HL,4080D 
LD DE,TXTO 
CALL PRINT 
CALL INPUT 
LD A, (LONG) 

LD (LONCV), A 
LD DE, CADEIW 
CALL TRASP 


2310 RET 

2320 NDMCANi LD A,20 

2330 LD (HIRLQN+l),A 

2340 LD HL,40Q0D 

2350 LD DE,TXT! 

2360 CALL PRINT 

2370 CALL INPUT 

2390 LD A,(LONG) 

2390 LD (LONCN),A 

2400 LD DE.CADENN 

2410 CALL TRASP 

2420 RET 

2430 I LOAD: LD A,0 

2440 LD (MIRLQN+1) , A 

2450 LD HL,40B0D 

2460 LD 0£,TXT2 

2470 CALL PRINT 

2490 CALL INPUT 

2490 LD A,(LONG) 

2500 LD <L_LOAD),A 

2510 LD DE,N_LQAD 

2520 CALL TRASP 

2330 RET 

2540 1_SAVE: LD A,8 

2350 LD (MIRLON+1),A 

2560 LD HL,4080D 
































2570 

LD 

DE.TXT3 

2580 

CALL 

PRINT 

2590 

CALL 

INPUT 

2400 

LO 

A, (LONG) 

2410 

LD 

<L„SAVE), A 

2420 

LD 

DE.N^SAYE 

2430 

CALL 

TRASP 

26X0 

RET 


2650 

INPUT! CALL 

#BB03 

2660 

XOR 

A 

1670 

UB 

(LONG) , A 

2600 

LO 

DE, NAME 

2690 

LD 

ML,#090F 

2700 

CALL 

#BB73 

4 2710 

LD 

A. 

2720 

CALL 

iPBSA 

2770 

1_PUC: CALL 

SBBie 

2740 

LD 

B, A 

2750 

CP 

13 

2740 

RET 

1 

2770 

CP 

127 

27 BO 

JR 

2, DELET 

2790 

CP 

32 

2800 

JR 

C, I_BL)C 

2810 

CP 

129 

2820 

JR 

nc, i_ but: 

2870 

LD 

A, (LONG) 

2840 

P1IRLQN: CP 

4 

2850 

JR 

2, 1_0UC 

2B60 

LD 

A,B 

2870 

CALL 

ttBBSA 

2BB0 

LD 

A, B 

2890 

CALL 

MBB5A 

2900 

LD 

A, 

2910 

CALL 

4BBSA 

2920 

LD 

A,(LONG) 

2930 

INC 

A 

2940 

LD 

(LONG),A 

2950 

LD 

A.D 

2960 

LD 

(DE) , A 

2970 

INC 

DE 

2900 

JR 

1 DUC 

2990 

DELET: LD 

A,(LONG) 

3000 

CP 

0 

3010 

JR 

2, I_BUC 

3020 

DEC 

A 

3030 

LD 

(LONG),A 

3040 

DEC 

DE 

3050 

LD 

A, 32 

3060 

LD 

(DE),A 

3070 

LD 

A,B 

3000 

CALL 

• BB5A 

3090 

LD 

A, 32 

3100 

CALL 

(3 BBS A 

3110 

LD 

A, B 

3120 

CALL 

KBBSA 

3130 

LD 

a, a 

3140 

CALL 

• BB3A 

3150 

LD 

A,32 

3160 

CALL 

IBB5A 

3170 

LD 

A, B 

, 3180 

CALL 

6BB5A 

3190 

LD 

A, - J* 

3200 

CALL 

*BB5A 

3210 

JR 

I BUG 

3220 

TRASP: LD 

A," (LONG) 

3230 

LD 

C, A 

3240 

LD 

B, 0 

3230 

LD 

HL,NAFE 

3260 

LD1R 


3270 

RET 


3200 

PRINT: CALL 

• BB75 

3290 

PBUD: LD 

A, (DE) 

, 7700 

CP 

255 

1 3310 

RET 

Z 

3320 

CALL 

VBB5A 

3330 

INC 

DE 

3340 

JR 

PBUD 

3350 

RET 


3360 

NOPRQ: LD 

HL.40B0D 

3370 

LD 

DF,TXTPR 

3300 

CALL 

. PRINT 

3390 

RET 


3400 

ERROR: LD 

HL,#0B0D 

3410 

LD 

DE.TXTER 


TXTO: 

i 

> T XT 1: 


3420 

3430 
3440 

34V) 

3460 
3470 

’4B0 TXT2: 

3490 

3500 TXT3i 
3510 

^520 NJ.OAD: 

3570 L^LQAD: 

3540 N~SAVEi 
3550 LiSAVEj 
3560 CADENY: 

3570 LQNCVs 
35R0 CADENNi 
3590 LPNCN; 

3600 TXTPR: 

3610 

3620 TXTPLj 
7670 

3640 TXTNQC: 

7650 

7660 TXTS1C: 

3670 

3600 TXTFRi 
7690 

3700 TXT! 

C - CAR GAR 
3710 
3720 

3730 FINPROi 
3740 NUNCA*. 

7750 DIREC: 

3760 LONG! 

3770 NAME: 

00 

LEC A093 BUSCA AOEB 
DENY A37A DELET A790 
ROR A2E0 FIN m \37 
NPRO A44C F1NRU/A15B 


CALL PRINT 
RET 

DEFM NQMBRE DE LA CADENA A CAMB1AR" 
DEFB 253 

DEFM "NQMBRE DE L#, NUEYA CADENA 
DEFB 255 

DEFM NQNBRE DEL PRQGRAMA A CARGAR" 
DEFB 255 

DEFM "NQMBRE DEL PRQGRAMA A SALVAR" 

DEFB 255 

DEF9 10 

DEFS 1 

DEFS 10 

DEFS 1 

DEFS 20 

DEFS 1 

DEFS 20 

DEFS 1 

DEFM 'NO HAY PRQGRAMA EN MEMOftlA" 
DEFB 255 

DEFM PRQGRAMA EN MEMQRIA" 

DEFB 255 

DEFM "NO EXISTS SSTA CADENA" 

DEFB 255 

DEFM “CADENAS CAMBIADAS" 

DEFB 255 
DEFM “ERROR" 

DEFB 255 

DEFM “ B BASIC L - LISTAR 


DEFM "S ■ 
DEFB 255 
DEFW O 
DEFB 0 
DEFS 2 
DEF9 1 
DEFS 25 


SALVAR F - CAMBIAR CADENAS' 


lO REM MOD IF1CADQR DE CADENAS 
20 REM PRQGRAMA CARGADQR 
30 FOR N-fcAOOO TQ LA46B 
40 READ A:SUMA-SUMA+A 
5Q POKE N,A 
60 NEXT 

70 IF SUMA< >10921;? THEN PRINT "ERRO 
R EN DATAS" 

SO DATA 33,0,0,34,76,164,205 

90 DATA 12,160,195,71,160,62,2 
ICO DATA 205,14,ISO,62,1,205,ISO 
110 DATA 107,33,0,0,17,1,BO 
120 DATA 205,102,107,62,1,205,150 
130 DATA 107,175,205,144,107,205,10 

a 

140 DATA 187,33,1,164,126,254,255 
150 DATA 40,6,205,90,187,35,24 
160 DATA 245,175,205,180,187,33,2 
170 DATA 0,17,25,80,205,102,187 
1R0 DATA 201,62,54,205,30,187,192 
190 DATA 62,36,205,30,187,40,3 
200 DATA 205,176,160,62,60,205,30 
210 DATA 187,40,3,205,146,161,62 
220 DATA 62,203,30,187,40,3,205 
230 DATA 119,160,62,53,205,30,187 
240 DATA 40,213,205,232,160,24,208 
250 DATA 205,108,187,205,11,162,205 
260 DATA 108,187,58,110,163,71,33 
270 DATA 100,163,17,160,192,205,119 
280 DATA 188,210,232,162,33,136,19 
290 DATA 205,128,188,48,4,119,35 
300 DATA 24,247,43,34,76,164,205 
310 DATA 122,188,205,12,160,33,13 
320 DATA 8,17,191,163,205,208,162 
330 DATA 201,205,108,187,42,76,164 
340 DATA 124,181,202,222,162,17,136 
350 DATA 19,213,62,66,205,30,187 
360 DATA 196,217,160,209,26,205,90 
370 DATA 187,19,42,76,164,124,186 
380 DATA 32,234,125,187,32,230,201 
390 DATA 1,64,156,11,120,177,32 
100 DATA 251,205,3,187,205,24,187 
410 DATA 201,42,76,164,124,181,202 
420 DATA 222,162,175,50,78,164,205 
430 DATA 108,187,205,207,161,205,10 

a 

440 DATA 187,205,237,161,205,108,18 
7 

450 DATA 33,122,163,17,136,19,221 
460 DATA 33,232,3,6,0,58,142 
470 DATA 163,184,40,34,229,42,76 
480 DATA 164,122,IBB,32,4,123,189 
490 DATA 40,58,225,26,221,119,0 
500 DATA 190,19,221,35,40,7,6 
510 DATA 0,33,122,163,24,220,4 
520 DATA 35,24,216,237,83,79,164 
530 DATA 221,43,16,252,58,78,164 
540 DATA 60,50,70,164,58,163,163 
550 DATA 71,33,143,163,126,221,119 
560 DATA 0,221,35,35,16,247,33 
570 DATA 122,163,24,178,225,221,229 
580 DATA 225,17,160,15,25,34,76 
590 DATA 164,17,136,19,55,63,237 
600 DATA 82,68,77,33,232,3,17 
610 DATA 136,19,237,176,58,78,164 
620 DATA 254,0,32,10,33,13,8 
630 DATA 17,211,163,205,208,162,201 
640 DATA 33,13,8,17,233,163,205 
650 DATA 208,162,201,205,100,187,42 
660 DATA 76,164,124,181,202,222,162 
670 DATA 205,41,162,205,SOS,187,58 
680 DATA 121,163,71,33,111,163,17 
690 DATA 160,192,205,140,188,17,136 
700 DATA 19,26,20S,149,138,42,76 
710 DATA 164,124,186,32,4,125,187 
720 DATA 40,3,19,24,23B,205,143 
730 DATA 188,205,146,188,205,12,160 
740 DATA 201,62,20,50,115,162,33 
7SO DATA 13,8,17,242,162,205,208 
760 DATA 162,205,71,162,58,81,164 
770 DATA 50,142,163,17,122,163,205 
780 DATA 196,162,201,62,20,50,115 
790 DATA 162,33,13,8,17,16,163 
BOO DATA 205,208,162,205,71,162,38 
810 DATA 81,164,50,163,163,17,143 
820 DATA 163,205,196,162,201,62,8 
830 DATA 50,115,162,33,13,8,17 
840 DATA 42,163,205,208,162,203,71 
050 DATA 162,58,81,164,50,110,163 
060 DATA 17,100,163,205,196,162,201 
870 DATA 62,8,30,115,162,33,13 
880 DATA 0,17,71,163,205,208,162 
890 DATA 205,71,162,58,81,164,50 
900 DATA 121,163,17,111,163,205,196 


910 DATA 162,201,205,3,187,175,50 
920 DATA 81,164,17,82,164,33,13 
930 DATA 9,205,117,187,62,95,205 
940 DATA 90,187,205,24,187,71,254 
950 DATA 13,200,254,127,40,41,254 
960 DATA 32,56,241,254,129,48,237 
970 DATA 58,81,164,254,4,40,230 
980 DATA 62,8,205,90,187,120,205 
990 DATA 90,187,62,95,205,90,187 
lOOO DATA 58,81,164,60,50,81,164 
1010 DATA 120,18,19,24,204,58,81 
1020 DATA 164,254,0,40,197,61,50 
1030 DATA 81,164,27,62,32,18,62 
1040 DATA 8,205,90,187,62,32,205 
1050 DATA 90,187,62,B,205,90,187 
1060 DATA 62.8,205,90,187,62,32 
1070 DATA 205,90,187,62,8,205,90 
1080 DATA 187,62,95,205,90,187,24 
1090 DATA 152,58,81,164,79,6,0 
1100 DATA 33,82,164,237,176,201,205 
1110 DATA 117,187,26,254,255,200,20 


1120 DATA 90,187,19,24,246,201,33 
1130 DATA 13,0,17,164,163,205,20Q 
1140 DATA 162,201,33,13,8,17,251 
1150 DATA 163,205,208,162,201,78,79 
1160 DATA 77,66,82,69,32.68,69 
1170 DATA 32,76,65,32,67,65,60 
1180 DATA 69,78,65,32,65,32,6/ 

1190 DATA 65,77,66,73,65,82,255 
1200 DATA 78,79,77,66,82,69,32 
1210 DATA 68,69,32,76,65,32,78 
1220 DATA 85,69,86,65,32,67,65 
1230 DATA 68,69,78,65,255,78,79 
1240 DATA 77,66,82,69,32,68,69 
1250 DATA 76,32,80,82,79,71,82 
1260 DATA 65,77,65,32,65,72,67 
1270 DATA 65,82,71,65,82,255,78 
1280 DATA 79,77,66,82,69,32,68 
1290 DATA 69,76,32,80,82,79,71 
1300 DATA 82,65,77,65,32,65,32 
1310 DATA 83,65,76,86,65,82,255 
1320 DATA 0,0,0,0,0,0,0 
1730 DATA 0,0,0,0,0,0,0 
1340 DATA 0,0,0,0,0,0,0 
1350 DATA 0,0,0,0,0„0,0 
1360 DATA 0,0,0,0,0,0,0 
1370 DATA 0,0,0,0,0,0,0 
13B0 DATA 0,0,0,0,0,0,0 
1790 DATA 0,0,0,0,0,0,0 
1400 DATA 0,0,0,0,0,0,0 
1410 DATA 0,78,79,32,72,65,89 
1420 DATA 32,80,82,79,71,532,65 
1430 DATA 77,65,32,69,78,32,77 
1440 DATA 69,77,79,82,73,65,255 
1450 DATA BO,B2,79,71,82,65,77 
1460 DATA 65,72,69,78,32,77,69 
1470 DATA 77,79,82,73,65,255,78 
1480 DATA 79,32,69,88,73,83,84 
1490 DATA 69,32,69,83,84,65,32 
1500 DATA 67,65,68,69,78,65,255 
1510 DATA 67,65,68,69,78,65,83 
1520 DATA 32,67,65,77,66,73,65 
1530 DATA 68,65,83,255,69,82,82 
1540 DATA 79,82,255,32,32,32,32 
1550 DATA 66,32,45,32,66,65,83 
1560 DATA 73,67,32,72,32,76,32 
1570 DATA 45,32,76,73,B3,84,65 
1580 DATA 82,32,32,32,67,32,45 
1590 DATA 32,67,65,82,71,65,82 
1600 DATA 32,32,32,83,32,45,^2 
1610 DATA 83,65,76,86,65,82,32 
1620 DATA 32,32,70,32,45,32,67 
1630 DATA 65,77,66,73,65,B2,32 
1640 DATA 67,65,68,69,78,65,83 
1650 DATA 255,0,0,0,0,0,0 
1660 DATA 0,0,0,0,0,0,0 
1670 DATA 0,0,0,0,0,0,0 
1680 DATA 0,0,0,0,0,0,0 
1690 DATA 0,0,0,0,0,0,0 
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Listador de 

VARIABLES 

Otro de los programas de utilidades que 
os ofrecemos en este numero, es el 
listador de variables, utilizable a traves 
de nuevos comandos RSX. 


ediante dichos coman¬ 
dos, estaremos en condiciones de listar tanto 
ias variables numericas como olfanumericas 
que se utilicen en un programa. 

La rufina en codigo mdquina que realiza di- 
cha funcion, esta ubicada a parfir de la direc- 
cion hexadecimal SA000 y tiene una longitud 
de 585 bytes. 

Debido a la zona de memoria que ocupa 
nuestro programa, no podremos trabajar con 
programas de gran longitud, ya que de lo con- 
trario corromperiamos esas direcciones de me¬ 
moria. Asi pues, la longitud de nuestros pro¬ 
gramas, no debe superar 39k. 

Para que dicha rufina funcione correctamen- 
te, deberemos ejecutar el siguiente programa 
Basic: 

10 MEMORY &9FFF 

20 LOAD"RSX 
30 CALL &A000 

Una vez hecho esto, borraremos todo lo que 
hay en la memoria mediante el comando: 

NEW 

y a continuacion podremos cargar en memo 
ria e! programa con el cual vayamos a traba- 
jar. 

La linea 30 del anterior programa Basic, se 
utiliza para indicar al ordenador que existen 
nuevos comandos, ya que de lo contario, los 
ignoraria. 

Una vez tengamos en memoria el progra¬ 
ma con el que deseemos trabajar, no deoe- 
remos ejecutarlo, ya que de lo contrario 
se inicializarian las variables, y la rufina seria 
incapaz de identificarlas. 

A partir de este momento, estamos en con¬ 
diciones de utilizar nuestros nuevos comandos. 

Vamos a indicar a continuacion cudles son 
dichos comandos y de que forma funcionan. 


El primero de eilos se utiliza para listar las 
variables olfanumericas, y se puede usar de 
dos formas distintas, segun la opcion desea- 
da. 

Este nuevo comando es el siguiente: 

IVALFA 

escrifo de esta forma, dicho comando produ- 
ciria un listado de rodas las variables alfanu- 
mericas, indicando asimisrno la linea en la que 
cada una de ellas se encuentra. 

Si por ejemplo exisfiera en memoria un pro- 
grama que tuviera la variable alfanumerica A$ 
en las I ieas 20, 40, la variable HOLA$ en las 
lineas 50 y 100 y la variable B$ en las lineas 
20, 50 y 60, fras la ejecucion del anterior co¬ 
mando, nos aparecerfa ei siguiente listado: 

00020 AS B$ 

00040 A$ 

00050 BS HOLAS 
00060 B$ 

00100 HOLAS 

Otra manera de utilizarlo seria de la forma 
aue se indlca a continuacion: 

IVALFA, "HOLA” 

La ejecucion de este comando fal como es¬ 
ta escrito, produciria el listado de la variable 
alfanumerica 'HOLA$', indicando al mismo 
tiempo en que lineas de programa se encuen- 
tra. 

Utilizando el ejemplo del hipotetico progra¬ 
ma citado anferiormente, este comando, nos 
produciria un listado en pantalla, como el si¬ 
guiente: 

00050 HOLAS 
00100 HOLAS 

Este ultimo comando nos sera de utilidaa 
cuando se desee conocer en que partes del 
programa actua una variable alfanumerica, 
y en particular en que lineas de programa se 
esta utilizando. 

Asi pues, cuando se ejecufe, se producira la 
busqueda de la variable introducida, y en el 
caso de ser encontrada se imprimird en pan¬ 
talla. En el caso de que no exista ninguna va¬ 
riable de este fipo, no se producira ningun ti- 
po de impresion en pantalla. 



Otro de los comandos de que disponemos, 
es el que se indica a continuacion: 

IVNUME 

Dicho comando provoca el listado de todas las 
variables numericas que contenga nuestro pro¬ 
grama, asi como los numeros de linea donde 
se encuentran. 

Como hemos hecho anferiormente, supon- 
dremos que existe en memoria un programa 
que contiene en las lineas 10 y 60 la variable 
numerica 'POSX', en las lineas 20 y 90 la va¬ 
riable 'YPOS', y en la linea 40 la variable 'D! 
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NERO'. La ejecucion del anterior comando, 
produciria un listado semejante al que se in 
dica: 

00010 POSX 
00020 YPOS 
00040 DINERO 
00060 POSX 
00090 YPOS 

La otra variante de este ultimo comando, 
nos permitira buscar una variable numerica en 
particular, produciendose unicamente la im- 
presion de dicha variable en pantalla, as! co- 
mo los numeros de llnea en que se encuentra. 


Este comando es el siguiente: 

IVNUME, "POSX" 

Su ejecucion provoca la busqueda de la ca- 
dena introducida entre comillas. En el caso de 
tener en memoria el programa anteriormen- 
te mencionado, provocarla la impresion en 
pantalla del siguiente texto: 

00010 POSX 
00060 POSX 


Tambien 
por impresora 


El ultimo comando del que disponemos, y 
no por ello menos Importante es: 

IP 

el cual nos ofrece la opcion de imprimir en 
pantalla o bien en impresora. 

Este comando actua como una especie de 
commutador, es decir cuando, se pulsa, acti- 
va lo que anteriormente estuviera desactiva- 
do. 

Asl, por ejemplo, si estamos producienao un 
listado de variables en pantalla y ejecuiando 
dicho comando, obligariamos a que el lista¬ 
do saliera poi impresora. Si ahora deseamos 
volver a listar en pantalla, unicamente debe- 
remos ejecutarla otra vez. 

Vamo5 a ver a continuacion cuales son las 
principales rutinas de que consta nuestro pro¬ 
grama. 

En primer lugar se efectua la instalacion de 
los nuevos comandos RSX en el sistema; para 
ello se definen dichos comandos y se efectua 
una llamada al firmware, que anuncia al sis¬ 
tema su creacion. 

La primera rutina con que nos encontramos 
es la que se encarga de activar el comando 
con parameteros, o bien sin utilizar ningun pa 
rd metro. 

Registro A = 0 indica que no hay parametros 
Registro A < > 0 indica lo existencia de pa- 
rametros. 

De esta forma, el programa disfinguiiia las 
posibles opciones del comando RSX. 

Cuando no se utilicen parametros, el pro¬ 
grama saltara inmediatamente a la rutina en- 
cargada de buscar todas las variables alfanu- 
mericas que existan en el programa. 

Para detector dichas variables, se ha defi- 
nido en un buffer la cadena de bytes por la 
que pueden ser identificadas, y que es la si¬ 
guiente: 

Variable alfanumerica... 3,0,0,nombre 

dado que en este caso el nombre de la varia¬ 
ble no nos interesa, unicamente se buscara una 
cadena que contenga los tres primeros bytes. 

Una vez encontrada, conoceremos la exis¬ 
tencia de una variable alfanumerica en esa di- 
reccion de memoria. Para reconocer de que 
variable se trata iomaremos los bytes que si- 


guen a continuacion, hasta encontramos con 
uno que contenga el valor de un caracter AS¬ 
CII al que se le ha sumado 128, ya que es de 
esta forma como el Basic almacena dichas va¬ 
riables. 

Veamos por ejem plo como se encontraria al 
macenada en memoria la variable HOLA$: 

3,0,0 "H", "0", "L", "A" + 128 

Cuando se utilice ei anterior comando con 
parametros, en primer lugar se reconocerd 
que parametros se han introducida, y los co- 
locara en un buffer, detras de los bytes 3,0,0 
identificativos de variable alfanumerica. 

A continuacion se enviard el control del pro¬ 
grama a la rutina encargada de buscar cade- 
nas en memories. Asi por ejemplo si el para 
metro es la cadena "POSX", dicha rutina in- 
tentard localizar la siguiente secuencia de nu¬ 
meros: 

3,0,0,"P”, "0", "S", "X" +128 

Por ultimo nos queda por describir el coman¬ 
do encargado de localizar las variables nume- 
ricas. La rutina utilizada, tambien chequea en 
primer lugar el contenido del acumulador para 
averiguar si se han enviado o no parametros. 

En el caso de que no existan dichos pard- 
metros, se llama a la rutina encargada de lo¬ 
calizar este tipo de variables, las cuales pue¬ 
den ser reconocidas por la siguiente secuen¬ 
cia de bytes: 

13,0,0 

De esta forma, cuando se encuentre la ca 
dena, se conocera la existencia de una varia¬ 
ble numerica en esa direction de memoria, por 
lo que tomaremos los bytes que siguen hasta 
encontramos con uno que contenga el valor 
de un caracter ASCI! mas 128, para conocer 
cudl es el nombre de dicha variable. 

Como podemos comprobar este tipo de va¬ 
riables se almacenan en memoria igual que las 
tratadas anteriormente. 

Cuando se utilice este ultimo comando con 
algun parametro, se tomard dicho pardmetro 
y se colocard en un buffer a continuacion de 
los bytes indicadores de variable numerica, y 
se llamard a la rutina de busqueda para que 
los localice, y una vez encontrados se irnpri- 
mirdn en pantalla. 

Una vez dadas las instrucciones de funcio- 
namiento y explicadas las rutinas mas intere- 
santes, estamos en condiciones de poder uti¬ 
lizar correctamente el programa. 

Para ello deberemos copiar el listado ensam 
blador que aparece a continuacion, o bien te- 
clear el programa cargador. Aquellas que uti¬ 
licen esta utlima opcion, deberan ejecutar el 
programa una vez copiado, y en caso de que 
no de ningun mensaje de error, se deberd sal¬ 
vor de la forma siguiente: 

SAVE "RSX", B, $A00G, 585 

Cuando se dese ejecutar. deberemos car- 
garlo en memoria de la forma indicada al prin¬ 
ciple de ese articulo, sin olvidarnos de efec 
tuar la llamada a la direccion $A00Q, con el 
fin de inicializar los nuevos comandos. 
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10 

;VARIABLES 


730 

CALL 

BUSNUM 

1450 

JR 

1 

Z,INCCQ 

20 


QRB 

#AOOQ 

740 

RET 


1460 

LD 

D ,0 

30 


LD 

BC,TABLA 

750 5 



1470 

LD 

IX,(VARS) 

40 


LD 

HL,ESPACE 

760 BUSALF: 

LD 

HL,DATALF 

1480 

JR 

NQINC 

50 


JP 

#BCO 1 

770 

LD 

(VARS),HL 

1490 INCCQs 

INC 

D 

60 

TABLA: 

DEFW 

NAME 

780 

LD 

A,3 

1500 

INC 

IX 

70 


JP 

VALFA 

790 

LD 

(VARI),A 

1510 NQINC: 

DEC 

BC 

SO 


JP 

VNUME 

800 

LD 

A,(LQNCA) 

1520 

LD 

A,B 

90 


JP 

IMPAN 

810 

ADD 

A,3 

1530 

QR 

C 

100 

NAME: 

DEFM 

■'VALF" 

820 

LD 

(LONCV),A 

1540 

JR 

NZ.BUC 

110 


DEFB 

"A"*#80 

830 

CALL 

INIC 

1550 

RET 


120 


DEFM 

"VNUM" 

840 

RET 


1560 FIN: 

LD 

A, (CQNCAN) 

130 


DEFB 

"£ ”+#80 

850 BUSNUM: 

LD 

HL,DATNUM 

1570 

AND 

A 

140 


DEFB 

"P"+#BO 

860 

LD 

(VARS),HL 

1580 

JR 

NX,FINU 

150 


DEFB 

0 

870 

LD 

A,2 

1590 

LD 

A, 13 

160 

ESPACE: 

DEFS 

4 

880 

LD 

(VARIi,A 

1600 

CALL 

IMPRE 

170 

IMPAN: 

LD 

A,(PRESQR) 

890 

LD 

A,(LQNCA) 

1610 

LD 

A, 10 

ISO 


CPL 


900 

ADD 

A,3 

1620 

CALL 

IMPRE 

190 


LD 

(PRESQR), A 

910 

LD 

(LQNCV),A 

1630 

PUSH 

HL 

200 


RET 


920 

CALL 

INIC 

1640 

CALL 

DECIMA 

210 

VALFA: 

AND 

A 

930 

RET 


1650 

POP 

HL 

220 


JP 

7 ., ALFA 

940 ALFA: 

LD 

HL,VARALF 

1660 FINU: 

LD 

A,(VARI) 

2^0 


LD 

L, (IX+O) 

950 

LD 

(VARS),HL 

1670 

CP 

0 

240 


LD 

H,(IX+1) 

960 

XQR 

A 

1680 

JR 

Z,NQBUS 

250 


LD 

A,(HL) 

970 

LD 

(VARI),A 

1690 

CP 

1 

260 


INC 

HL 

980 

LD 

A,3 

1700 

JR 

Z,NQBUS 

270 


LD 

E,(HL) 

990 

LD 

(LQNCV),A 

1710 

LD 

A,(LQNCA) 

280 


INC 

HL 

1000 

CALL 

INIC 

1720 

LD 

8 , A 

290 


LD 

D,(HL) 

1010 

RET 


1730 RES 8 U: 

DEC 

HL 

300 


EX 

DE, HL 

1020 NUMER: 

LD 

HL,VARNUM 

1740 

DJNZ 

RESBU 

310 


LP 

DE^DATALF*3 

1030 

LD 

(VARS),FL 

1750 NQBUS: 

LD 

A, (HL) 

320 


LD 

C,0 

1040 

LD 

A, 1 

1760 

BIT 

7,A 

330 


LD 

B, A 

1050 

LD 

(VARI),A 

1770 

JR 

NZ,FINIM 

340 

MOO: 

LD 

A, (HI ) 

1060 

LD 

A, 3 

1780 

CALL 

IMPRE 

350 


LD 

(DE) A 

1070 

LD 

(LQNCV),A 

1790 

INC 

HL 

360 


INC 

HL 

1080 

CALL 

INIC 

1800 

JR 

NQBUS 

370 


INC 

DE 

1090 

RET 


1810 FINIM: 

RES 

7,A 

390 


INC 

C 

1100 INIC: 

LD 

IX,(VARS) 

1820 

CALL 

IMPRE 

390 


DJNZ 

MQS 

1110 

LD 

HL,#170 

1830 

LD 

A, (VARI) 

400 


LD 

A,C 

1120 

LD 

(DIREC),HL 

1840 

CP 

1 

410 


LD 

(LQNCA),A 

1130 BUCL: 

LD 

B, (HL) 

1850 

JR 

Z, NQALF 

420 


DEC 

DF 

1140 

INC 

HL 

1860 

CP 

2 

430 


LD 

A (DE) 

1150 

LD 

C,(HL) 

1870 

JR 

Z, NQALF 

440 


ADD 

A, 128 

1160 

DEC 

HL 

1880 

LD 

A, '**" 

450 


LD 

(DE) A 

1170 

LD 

A,a 

1890 

CALL 

IMPRE 

460 


CALL 

BUSALF 

1180 

QR 

C 

1900 NQALF: 

LD 

A," •' 

470 


RET 


1190 

RET 

z 

1910 

CALL 

IMPRE 

480 

VNUME: 

AND 

A 

1200 

CALL 

BUSC 

1920 

LD 

IX,(VARS) 

490 


JP 

Z,NUMER 

1210 

LD 

HL,(DIREC) 

1930 

LD 

D.O 

500 


LD 

L (IX+O) 

1220 

LD 

DE,(LQNLIN) 

1940 

LD 

A,(CQNCAN) 

510 


LD 

H,(IX+1) 

1230 

ADD 

HL, DE 

1950 

INC 

A 

520 


LD 

A (HL) 

1240 

LD 

(DIREC) ,HI. 

1960 

LD 

(CQNCAN) s,A 

530 


INC 

HL 

1250 

JR 

BUCL 

1970 

RET 


540 


LD 

E (HL) 

1260 BUSC: 

LD 

C,(HL) 

1980 VARALF: 

DEFB 

3,0,0 

550 


INC 

HL 

1270 

INC 

HL 

1990 VARNUM: 

DEFB 

13,0,0 

560 


LD 

D s (HL) 

1280 

LD 

B,(HL) 

2000 LONCV: 

DEFB 

3 

570 


EX 

DE,HL 

1290 

INC 

HL 

2010 LQNLIN: 

DEFS 

2 

5S0 


LD 

DE,DATNUH+3 

1300 

LD 

(LQNLIN),BC 

2020 NUMLIN: 

DEFS 

2 

590 


LD 

£,0 

1310 

LD 

E,(HL) 

2030 FINPRO: 

DEFS 

2 

600 


LD 

B,A 

1320 

INC 

HL 

2040 DIREC: 

DEFS 

2 

610 

MAS: 

LD 

A, (HL) 

1330 

LD 

D, (HL) 

2050 CQNCAN: 

DEFB 

O 

620 


LD 

(BE) , A 

1340 

INC 

HL 

2060 VARS: 

DEFS 

2 

630 


INC 

HL ‘ 

1350 

LD 

(NUMLIN),DE 

2070 VARI: 

DEFB 

0 

640 


INC 

DE 

1360 

XQR 

A 

2080 LQNCA: 

DEFB 

O 

650 


INC 

C 

1370 

LD 

(CQNCAN),A 

2090 DATNUM: 

DEFB 

13,0,0 

660 


DJNZ 

MAS 

1380 

LD 

0,0 

2100 

DEFS 

20 

670 


LD 

A, C 

1390 BUC: 

LD 

A,(LQNCV) 

2110 DATALF: 

DEFB 

3,0,0 

660 


LD 

(LQNCA),A 

1400 

CP 

D 

2120 

DEFS 

20 

690 


DEC 

DE 

1410 

CALL 

Z , FIN 

2130 ; 



700 


LD 

A,(DE) 

1420 

LD 

A, (HL) 

2140 ; 



710 


ADD 

A, 128 

1430 

CP 

(IX) 

2150 ;IMPRIMF 

NUMEROS DEC I MALES 

720 


LD 

(DE),A 

1440 

INC 

Hi. 

2160 j 
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2170 

5 



2180 

DECIMA: 

SCF 


2190 


LO 

HL,(NUMLIN) 

2200 


LD 

DE,10000 

2210 

-* 

INC 

HL 

2220 


LD 

A, 47 

2230 

DMIL: 

INC 

A 

2240 


SBC 

HL, DE 

* 2250 


JR 

NC,DMIL 

2260 


CALL 

PRINT 

2270 


LD 

DE,1000 

2280 

MIL: 

INC 

A 

2290 


SBC 

HL, DE 

2300 


JR 

NC.MIL 

2310 


CALL 

PRINT 

2320 


LO 

DE,100 

2330 

CIEN: 

INC 

A 

2340 


SBC 

HL, DE 

2350 


JR 

NC,CIEN 

2360 


CALL 

PRINT 

2370 


LD 

DE, ID 

2380 

DIEZ: 

INC 

A 

2390 


SBC 

HL, DE 

2400 


JR 

NC,DIEZ 

2410 


CALL 

PRINT 

2420 


ADD 

A,L 

2430 


CALL 

PRINT 

2440 


LD 

A, " " 

2450 


CALL 

IMPRE 

2460 


RET 


2470 

PRINT: 

CALL 

IMPRE 

2480 


LD 

A, 47 

2490 


JR 

NZ.PAS 

2500 


INC 

HL 

2510 

PAS: 

ADD 

HL,DE 

2520 


INC 

HL 

2530 


RET 


2540 

IMPRE: 

PUSH 

AF 

2550 


LD 

A,(PRESOR) 

2560 


AND 

A 

2570 


JR 

1 ,PANT 

2580 

WAIT: 

CALL 

«BD2E 

2590 


JR 

C,WAIT 

2600 


POP 

AF 

2610 


CALL 

#BD31 

2620 


RET 


2630 

PANT: 

POP 

AF 

2640 


CALL 

#BB5A 

2650 


PUSH 

HL 

2660 


PUSH 

DE 

2670 


PUSH 

BC 

,2680 


PUSH 

IX 

2690 


PUSH 

AF 

2700 


LD 

A, 66 

2710 


CALL 

ORB IE 

2720 


CALL 

NZ,PAUSA 

2730 


POP 

AF 

2740 


POP 

IX 

2750 


POP 

BC 

2760 


POP 

DE 

2770 


POP 

rt¬ 

2780 


RET 


2790 

PRESOR: 

DEFB 

f' 

2800 

PAUSA: 

LD 

BC,30000 

2 B10 

PALIS: 

DEC 

BC 

2820 


LD 

A,B 

2030 


□R 

C 

2840 


JR 

NZ.PAUS 

2850 


CALL 

#BB03 

2860 


CALL 

#BB18 

S 2870 


RET 



ALFA 

AOAE 

BUG 

A10C 

BULL 

AODF 

BUSALF 

AOBO 

BUSC 

AOF& 

BUSNUM 

A097 

CIEN 

A1E7 

CQNCAN 

A194 

DATALF 

A1B0 

DATNUM 

A199 

DECIMA 

A1C7 

DIEZ 

A1F2 

DIREC 

A192 

DMIL 

A1D1 

ESPACE 

A020 

FIN 

A12B 

FINIM 

A15D 

FINPRO 

A190 

FINU 

A140 

IMPAN 

A024 

IMPRE 

A20F 

INCCO 

A122 

INIC 

A0D5 

LONCA 

A198 

LONCV 

A IBB 

LDNLIN 

A18C 

MAS 

A06C 

MIL 

A1DC 

MOB 

A042 

NAME 

AO 14 

NOALF 

A172 

NQPUS 

A152 

NO INC 

A125 

NUMER 

A0C1 

NUMLIN 

A1BE 

PANT 

A220 

PAS 

A20C 

PAUS 

A23D 

PAUSA 

A23A 

PRESDR 

A239 

PRINT 

A204 

RESBU 

A14F 

TABLA 

A009 

VALFA 

A02C 

VARALF 

A185 

VAR I 

A197 

VARNUM 

A IBB 

VARS 

A195 

VNUME 

A056 

WAIT 

A216 




Table used: 600 -from 100O 


10 RFM LISTADC1R D£ VARIABLES 
20 REM PROGRAMS CARGADDR 
70 FOR N S.AOOO TQ &A249 
40 RFAD A:SUMA*SUMA+A 
50 POKE N,A 
60 NFXT 

70 IF SUMA< -58826 THEN PRINT "ERROR 
FN DATAS" 

80 DATA 1,9,160,73,72,160,195 
90 DATA 209,189,70,160,195,44,160 
100 DATA 195,86,160,195,36,160,86 
110 DATA 65,76,70,193,86,70,85 
120 DATA 77,197,208,0,0,0,0 
130 DATA 0,50,57,162,47,50,57 
140 DATA 162,201,167,202,174,160,22 
1 

150 DATA 110,0,221,102,1,126,35 
160 DATA 94,35,86,235,17,179,161 
170 DATA 14,0,71,126,18,35,19 
180 DATA 12,16,249,121,50,152,161 
190 DATA 27,26,198,128,18,205,128 
200 DATA 160,201,167,202,193,140,22 
1 

210 DATA 110,0,221,102,1,126,35 
220 DATA 94,35,86,235,17,156,161 
230 DATA 14,0,71,126,18,35,19 
240 DATA 12,16,249,121,50,152,161 
250 DATA 27,26,198,128,18,205,151 
260 DATA 160,201,33,176,161,34,149 
270 DATA 161,62,7,50,151,161,58 
280 DATA 152,161,198,3,50,139,141 
?90 DATA 205,213,160,201,37,153,161 
300 DATA 34,149,161,62,2,50,151 
310 DATA 161,58,152,161,198,3,50 
770 DATA 179,161,205,213,160,201,73 
330 DATA 133,161,34,149,161,175,50 
340 DATA 151,161,62,3,50,139,161 
350 DATA 205,213,160,201,33,136,161 
760 DATA 34,149,161,67,1,50,151 
770 DATA 161,62,7,50,139,161,205 
700 DATA 213,160,201,221,42,149,161 
790 DATA JSS, 112, 1,34, 146, 161,70 
400 DATA 35,78,43,170,177,200,205 
410 DATA 246,160,42,146,161,237,91 
420 DATA 140,161 r 25,34,146,161,24 
470 DATA 237,78,75,70,35,237,67 
440 DATA 140,161,94,35,86,35,237 
450 DATA 83,142,161,175,50,148,161 
460 DATA 22,0,58,139,161,186,204 
470 DATA 47,161,126,221,190,0,35 
480 DATA 40,R,22,0,271,47,149 
490 DATA 161,24,7,20,221,35,11 
500 DATA 120,177,72,226,201,50,140 
510 DATA 161,167,72,15,62,17,205 
520 DATA 15,162,62,10,205,15,162 
570 DATA 729,205,199,161,225,58,151 


540 DATA 161,254,0,40,11,254,1 
550 DATA 40,7,58,157,161,71,43 
540 DATA 16,257,126,203,127,32,6 
570 DATA 70S, 15, 162,75,24,245,207 
580 DATA 191,205,15,162,58,151,161 
590 DATA 254,1,40,9,254,2,40 
600 DATA 5,67,76,205,15,162,62 
610 DATA 77,205,15,162,721,42,149 
670 DATA 161,22,0,58,148,161,60 
670 DATA 50,148, 161,201,3,0,0 
640 DATA 13,0,0,3,0,0,0 
650 DATA O,o,0,0,0,0,0 
660 DATA 0,0,0,13,0,0,0 
670 nATA 0,0,0,0,0,0,0 
680 DATA 0,0,0,0,0,0,0 
690 DATA 0,0,0,0,0,3,0 
700 DATA 0,0,0,0,0,0,0 
710 DATA 0,0,0,0,0,0,0 
720 DATA 0.0,0,0,0,0,0 
770 DATA 55,47,142,161,17,16,39 
740 DATA 75,62,47,60,277,82,48 
750 DATA 251,205,4,162,17,232,3 
760 DATA 60,777,82,4B,251,205,4 
770 DATA 167,17,100,0,60,237,82 
780 DATA 40,751,205,4,162,17,10 
790 DATA 0,60,237,82,40,251,205 
BOO DATA 4,162,177,205,4,162,67 
Bio DATA 72,205,15,162,201,205,15 
820 DATA 162,62,47,32,1,35,25 
870 DATA 35,201,245,58,57,162,167 
840 DATA 40,10,205,46,189,56,251 
850 DATA 741,205,49,189,201,241,205 
860 DATA 90,187,729,217,197,221,229 
8/0 DATA 245,62,66,7^5,30,107,196 
880 DATA 58,162,241,721,225,193,209 
090 DATA 725,701,0,1,48,117,11 
900 DATA 120,177,32,251,205,3,187 
910 DATA 205,74,187.701,0,0,0 
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SERIE CPC 


AMSTRAD CPC 6128 


AMSTRAD CPC 464 


• TECLADO • Teciado protesional con 
'4 ‘emas en 3 bloques - Hasta 32 teclas 
programables - Tecla .o redefimble 

• PANTALLA • Monitor RGB verde 1 .12") 
o coior (14") 


I Normal 1 

Alta Res. 

Multicolor 

Cel lineas 

_, 0 _ 25 

J a_25_ 

A 25 

Cdcres 

n ~ r 

1 O , n i 


Puntos 


\- 

jj _y” 


- Se pueden defmir hasta 8 ventanas de 
texto y 1 de graficos • SONIDO 

• 3 canales de 8 octavas moduiadas 
tndep&idientemente - Altavoz interno 
regulable - Salida estereo • BASIC 

• Locomotive BASIC ampliado en ROM - 
Incluye los comandos AFTER y EVERY 
para control de mterrupriones 


IINIDAD CENTRAL. MEMORIAS 

• Microprocesador Z80A 64K RAM 
ampliables - 32K ROM ampliabies 
CASSETTE • Cassette mcorporada con 
velocidad de graoacion (1 o 2 Kbaudios) 
controiada desde Basse • CONECTORES 

• Bus PCB multiuso, Umdad de Disco 
exterior, paraielo Centronics, salida 
estereo, joystick lapiz optico, etc. 

• SUMINISTRO • Ordenador con monitor 
verde o color - 8 cassettes con 
programas - Libro “Guia de Referenda 
BASIC para el programador" - Manual en 
castellano - Garantia Oficial AMSTRAD 
ESPANA, 


TODO PORl 59.900 Pts. (mon itor verde) 

_ 1 90.900 Pts. (m : ‘ r) 


UNIDAD CENTRAL. MEMORIAS 

• Microprocesador Z80A 128 K RAM 
ampliables 48 K ROM ampliabies 
UNIDAD DE DISCO • Umdad 
mcorporada para disco de 3" con 180 
por cara • SISTEMAS OPERATIVOS 

• AMSDOS CP M 2.2, CP M Plus (3, 

• CONECTORES • Bus PCB multiuso, 
paraielo Centronics, cassette extenoi. 

2, 4 Umdad de Disco, salida estereo 
joysticks lapiz optico, etc, 

• SUMINISTRO * Ordenador con monttoi 
verde o color - Disco con CP M 2.2 y 
lenguaje DR. LOGO - Disco con CP 
Plus y utihdades Disco con 6 programas 
de obsequio - Manual en Castellano • 
Garantia Oficial AMSTRAD ESPAR1A. 


TODO POR 84.90QPts . (mon itor verde) 
_ 119.900Pts. (monitor color) 












































) PCW-8256 AMSTRAD CPC-6128 



TODO POR 129.900 Pts 


Centronics • SUM1NISTRO • Ordenador 
complete con teclado, pantalla, Unidad 
de Disco e Impresora - Discos con el 
procesador de Texto LocoScript, CP M 
Pius, Mallard BASIC DR, LOGO y diversas 
utilidades - Manuales en castellano - 
Garantia Oficial AMSTRAD ESPAMA. 


UNIDAD CENTRAL. MEMORIAS 

• Microprocesador Z80A 256K RAM de 
as que 112K se utilizan como disco RAM 

• TECLADO • Teclado profesional en 
castellano (n, acento..,) de 82 teclas 

• PANTALLA • Monitor verde de alta 
resolution 90 columnas x 32 lineas de 
texto • UNIDAD DE DISCO • Disco de 
3" y 173K por cara Opcionalmente, 

2. Unidad de Disco de 1 Mbyte integrable 

• SISTEMA OPERATIVO • CP/M Plus 
de Digital Resea :ch • IMPRESORA • 

Alta calidad (NLQ) a 20 c.p.s. Calidad 
estandar a 90 c.p.s. Papel continue u 
hojas sueltas - Alineacion automatics del 
papel - Caracteres normales, 
comprimidos, expandidos, control del 
paso de letra (normal, cursiva, negrita, 
subindices, superindices, subrayado.etc). 

• OPCIONES • Kit de Ampliation a 
S12K RAM y 2,“ Unidad de Disco - 
interface Sene RS 232C y paralelo 


Existe tambien la version PCW 8512 con 
512K RAM y la 2, U nidad de Disco de 
1 Mbyte incomorada lA'JJHI-m'l'KT 
* El PCW 8256 puede ulilizarse como 
terminal y en comumcso ones, 

El I.V.A. no esta mcluido en los precios. 

NOTA: Es muy importante venficar la garantia del 
aparato ya que solo AMSTRAD ESPAtjA puede 
garamizarle la ordenada reparacion y sobre todo 
matenales de repuesto oficiales (Monitor, 
ordenador, cassette o unidades de discos). 

r\ nnmrnm n m 


U Aravata, 22. Tel 4593001.leWK4766Q1NSCE 
Fax 4592292. 28040 Madrid. 

Deiegaciin en Caiaiufia: U. Tarragona. 110. Tel. 3251058 
0801b Barcelona. 


Software Profesional, 


a “precios AMSTRAD 
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EL MUNDO DE 
LOS «PLOTTER5» 


Francisco G.R, 


, os y deseamos 

mediante P^ u ^f za n esta labor . 



1 principio esta solucion 
en valida para un tan to par ciento muy impor- 
tantes de usuarios. Pero, poco a ooco, vamos 
comprobando que no es una reproduccion 
muy perfecta la que obtenemos en la impre- 
sora. Hay varies puntos muy claros en este as- 
pecto: entre ellos podemos citar las circunfe- 
rencias, que no son tales sino mas bien elip- 
ses, y luego tenemos las inlersecciones o las 
lineas rectas que enlazan un par de puntos. 
Los enlaces con ios puntos son perfectos, pe¬ 
ro la trayectoria_de la recta deja mucho que 
desear con la realidad. 

Esto y la necesidad de adaptacion a nece- 
sidades concretas nos obligan a buscar un pe¬ 
riferico de impresion mas especifico: el PLOT¬ 
TER. Este periferico esta disenado para tras- 
ladar al papel el desarrollo de un piano (en 
construction), del diseno de piezas especiali- 
zadas, de diseno cartografico, etc. 


formacidn contenida en la pantallo, o en un 
fichero, hacia el periferico que tengamos co- 
nectado. 

Comenzamos tratando las rutas que comu- 
nican el procesador y Ios modulos de entrada 
y salida de un microordenador. Para ello, em- 
pezamos con una introduction sobre las dife- 
rencias de comunicacion Serie y Paralelo. 


Salodas por el canal 
de impresion 

En un ordenador hay que tener en cuenta 
las entradas y saiidas de datos por Ios diferen- 
tes canales de la maquina. Como ejemplo, po¬ 
demos citar que, cuando estamos introducien 
do datos por el teclado, estos se imprimen en 
la pantalla por el canal de video. Lo mismo 
sucede cuando mandamos information hacia 
la impresora o el Plotter: la llevamos por su 
canal. Este es el encargado de transmitir la in- 
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Comunicacion en Serie 

Especialmente cuando se trata de transmi 
tir datos a larga distancia, la comunicacion en 
Paralelo resultaria inviable por el numero de 
hilos necesario para la misma. Por ello, recu- 
rrimos a la transmision en Serie, en la que Ios 
bit se suceden ordenadamente en el tiempo; 
solo son estriefamente necesarios dos hilos ac- 
tivos de interconexion, uno para salida y otro 
para entrada de datos. 

La diferencia fundamental entre Ios interfa¬ 
ces para la transmision en Serie y en Paralelo 
es aue las series deben realizar la conversion 
del dato de Paralelo a Serie para la emision, 
y viceversa para la reception. 

Un ejemplo de un interface Serie es el 
RS-232C, cuyas siglas significan Recomended 
Standard. En este interface, ademas de llevar 
Ios dos hilos de interconexion, se dispone de 
una serie de senales que permife controlar la 
transmision. 


Comunicacion en paralelo 


Al contrario de lo que sucede con Ios inter¬ 
faces Serie, Ios paralelos tienen la ventaja de 
poder realizar transferences de datos a muy 
aita velociaad, ya que se transmiten Ios carac- 
teres en una sola emision. La desventaja fun¬ 



damental es el mayor numero de hilos de in¬ 
terconexion y la corta distancia que pueden 
cubrir, no solo en razon de su costo y com- 
plejidad, sino porque no son aptas para las 
comunicaciones por via telefonica. 

Los interfaces paralelos, por no tener la ne¬ 
cesidad de aaaptarse a un medio comun (en 
el caso de Ios interfaces en Serie las lineas te- 
lefonicas eran este medio comun), no se'han 
sujetado por lo general a ningun standard, y 
esto provoca que frecuentemente existan pro- 
blemas de incompatibilidades. Mediante una 
norma que se elaboro, llamada IEEE 488 y 
que incorporan la mayoria de ios equipos ac- 
tualmente, aunque aim no todos, se intentoso- 
lucionar el problema de las incompatibilida¬ 
des. 


Programas con opcion de 
Plotter en el mercado 


Cuando decidimos comprar un Plotter, mi- 
ramos las posibilidades de resolucion que tie- 
ne este, y el famano del folio que acepta. Tam- 
bien procuramos que disponga del mayor nu¬ 
mero de plumas de colores posibles, para dar- 
le una mayor calidad a Ios trabajos que reali- 
cemos. 

El primer paso a seguir sera la adaptacion 
de este a nuestra maquina. Aunque depen- 
diendo de la calidad del Plotter, se puedeo 
no controlar manualmente, tenemos la nece¬ 
sidad de gobernarlo a traves de nuestro equi- 
po. Si comenzamos por estudiar Ios puertosde 
entrada y salida y como mandar la informa¬ 
cion, probablemente no utilizariamos el Plot¬ 
ter desde el ordenador. 

Para ello nos vamos a programas ya comer- 
ciolizados y que nos den de alguna forma es¬ 
te problema resuelto. Si buscamos y miramos 
















































bien los programas que existen, comprobare- 
mos que hay dos programas en el que se da 
la opcion de salida por Plotter. Estos prcgra- 
mas son el D.R. jDraw y D.R. Grahp, los cua- 
les en las opciones de imprimir tienen la sali- 
da de Plotter. 

Cuando realizamos un dibujo con el D.R. 
Draw, una vez retocado, lo podemos mandar 
por la salida de Plotter, pero podemos encon- 
trarnos con la respuesta de xproqrama no pre- 
parado para salidas de ese peri erico», o bien 
no recibir ninguna serial el Plotter. El mismo 
caso ocurre con el D.R. Graph: tenemos que 
preparar la solida del Plotter antes de su utili¬ 
zation. 

La inicializacion del programa para el or 
denador de que dispongamos viene explica- 
da en el manual, pero ya no es tan clara pa¬ 
ra instalar el Plotter. Lo primero que debemos 
tener en cuenta es el interface que Neva in- 
corporado nuestro Plotter. Dependiendo de 
esta tenemos que obrar de una forma o de 
otra. 

Si tuviera un interface Serie, lo primero que 
necesitariamos, tanto para la gama de los CPC 
o de los PCW, seria la conexion de un inter¬ 
face Serie para el equipo. Este interface lo co 
nedaremos a la salida que lievan nuestros CPC 
(hay que hacer constar que en el 6128, se eo- 



necta en el Bus de salida impresofa, mientras 
que en el 464 y los PCW 8256 y 8512, se co- 
nectan al Bus trasero de expansion). 

En caso confrario al anterior (interface Pa 
ralelo), la cosa se reduce ha adquirir un ca¬ 
ble Centronics y conectarlo directamenfe al 
equipo. Esto se puede hacer con la gama de 
los CPC. Desgratiadamente para los usuarios 
de los ultimas modelos lanzados de Ams- 
trad, hay que decir que obligatoriamente 
necesitan la compra del interface Paraielo, 
por carecer este eauipo de una salida Cen¬ 
tronics. 

Cuando hemos solucionado todos los pro- 
blemos de tipo Hardware, de conexion entre 
ambos, tenemos que insiaiar el Software. Con 
la compra de nuestro ordenador nos dan unos 
discos de Sistemas Operativos, en los cuales 
tambien existen unas utilidades para la maqui- 
na. Efectivamente, uno de esos programas que 
hemos sacado por el directorio tantas veces 
y no sabemos para que nos sirve y del cuai 
no dlsponemos de ninguna information, es 
ahora mismo el programa mas importante pa 
ra la instalacion. 

Cuando instalemos el programa para nues¬ 
tro equipo, debemos incorporar la salida per- 
tinente. Lo realizaremos colocando en el dis¬ 
co los DEVICE ae OUTPUT de SID (cuando te¬ 
nemos conectados un interface en Serie), o 
CEN (caso contrario al anterior, el interface 
es Paraielo o Centronics). Cuando se trata de 
una salida en Paraielo, en los modelos Ams- 
trad CPC no hace falta preparar la salida, 
pues estan tomaaos estos valores por defec- 
to. En el caso de Serie si son necesarios, debi- 
do a tener que incorporarles al equipo un pe- 
riferico externo. 

Una vez preparados los DEVICE CEN o DE¬ 
VICE SID, el ordenaaor tiene conectados ios 
canaies de impresion para su uso. Seguida- 
mente debemos introducir en el disco el pro¬ 
grama con el cual el ordenador mande sena- 
les concretes y admitidas por el Plotter. Este 
programa nos viene con el equipo y se deno- 
.mina: 

A > DDHP7470.PRL 

De el existen dos versiones dependiendo del 
Sistema Operativo y del equipo. Existe una en 
el disco numero dos del CP/M Plus del 6128, 
y la otra se encuentra en la cara numero tres 
de las utilidades del CP/M Plus del 8256/8512. 
Este programa debe colocarse inmediatamen 
te despues de ios DEVICE, para su perfedo 
funcionamiento. 


Comandos de manejo 
de Plotter 

Al igual que en una impresora, un Plotter 
tiene sus comandos de uso interne. En una im¬ 
presora tenemos comandos de salto de pagi- 
na, retroceso de carro y salto de linea, entre 
otros. 


En un Plotter estos comandos no existen, pe¬ 
ro si tenemos otros, como pueden ser el cam 
bio de tinta, posidonamiento en un punto del 
papei, radio de una circunferencia, etc. 

Como punto de interes por el usuario, va- 
mos a definir la mayoria de los comandos del 
Plotter para los intrepidos que deseen hacer 
uso de ellos. 

Comando: AA - Arc Absolute (Arco Abso- 
luto) 

— Formato: AA x,y,a(,c) 
x = Punto de eje x. 
a = Grados 

y= Punto eje y. c = 
Grades de retroceso 

Comando: AR - Arc Relative (Arco Re- 

lativo) 

- Formato: AR ix,iy,a(,c) 
ix = lncremento de x. 
a = Grados 

iy = lncremento de y. 
c = Grados de retroceso 

Comando: Ci -CIRCLE (Circunferencia) 

— Formato: Clr (,c) 
c = Grados 

Comando: LB - Label (Etiqueta) 

— Formato: LB cl,c2,... 

cN[f] 

cN = Punto decomien- 
zo, alto ancho, etc. 

t = Espacio entre eti¬ 
queta 



Comando: PU — Pen Up (Pluma Arriba) 
— Formato: PU; 

Comando: LB - Label (Etiqueta) 

— Formato: LB cl ,c2,.,. 
cN[t] 
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Comando: PU 
Comando: PD 

Comando: PA 

Comando: PR 

Comando: FT 

Comando: RA 

Comando: CS 


cN = Punto de comien- 
zo, alto, ancho, etc. 

t= Espacio entre eti- 
queta 

Pen Up (Pluma Arriba) 

— Formato: PU; 

— Pen Down (Pluma 
Abajo) 

— Formato: PD; 

— Plot Absolute (Plot Ab- 
soluto) 

— Formato: PA; 

— Plot Relative (Plot Rela- 
tivo) 

— Formato: PR; 

— Fill Type (Relleno de Fi- 
gura) 

— Formato: FT; 

— Rectangle Absolute 
(Rectangulo Absoluto) 

— Formato: RA x,y 

x = Punto de eje x. y 
Punfo eje y. 



— Designate Standard 
Character Set (Definir Ca- 
rac.) 

— Formato: CSn 

n = Numero de Set de 
caracteres 


Comando: CA — Designate Alternate 
Character Set (Definir Ca- 
rac.) 

— Formato: CSn; 

n = Numero de Set 
creado por usuario 


Comando: SS — Select Standard Set 
(Seleccionar un Standard) 
— Formato: SS, 

Comando: SA — Select Alternate Set 
(Seleccionar uno propioj 
— Formato: SA; 

Comando: DT — Define Terminator (De- 
finir el terminal 
— Formato: DT c; 
c = valor del punto 


Comando: Dl — Absolute Direction (Di¬ 
reccion Absolute) 

— Formato: Dl ix,iy; 

ix= Incremento en la 
direccion X 

iy= Incremento en la 
direccion Y 

Comando: DR — Relative Direction (Di¬ 
reccion Relativa) 

— Formato; DR ix, iy; 

ix = Incremento en la 
direccion X 

iy = Incremento en la 
direccion Y 


Comando: SL — Character Slant (Elon- 
gacion de cardcfer) 

- Formato: SL c; 

c = Grados de elonqa- 
cion 





S0 






t estas interesado en algun numero de los 
ya publicados por Microhobby Amstrad, rea- 
iiza hoy mismo tu pedido porque ya hay algunos 
ejemplares agofados. 

No pierdas la oportunidad de disponer de la mejor 
obra oublicada sobre ordenaaores Amstrad. En todos 
sus numeros encontraras interesantes arficulos de inicia- 
cion, pokes, frucos, curso de codigo maauina, etc... 

|No te pierdas detalle! 

Recorto o copio el cuoon que aparece cosido en las paqinas 
de la revista. 
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SlMULADORES 
DE COMBATE 

De todas las aventuras que podemos vivir sobre el 
teclado de un ordenador, tal vez una de las mas 
reales y emocionantes sea la de pilotar un avion 
de caza en busca de aparatos enemigos. 




































_ no de los clasicos en 
los programas de juego para ordenador, son 
los simuladores de vuelo. Su nacimiento data 
de hace tiempo, cuando los ordenadores per 
sonales solo se utilizaban para negocios. 


Estos programas estaban desfinados a lie¬ 
nor los ratos libres de ejecutivos. Mientras se 
tomaba el cafe despues de una reunion, sur 
gia el momenlo idoneo para lucir ante los de¬ 
mos nuestras habilidades como piloto. 

En un momento la pantalla del ordenador 
se converfia en el ceniro de afencion, y las pa- 
labras de animo de los camaradas llenaban 
la sala. 

Con la llegada de los ordenadoles domes- 
ficos, y la aparicion de un elevado riumero de 
dientes potenciales de los iuegos, ha llegado 
tambien la produccion masiva de software de 
entrefenimiento, y como no, los simuladores 
de vuelo han tenido un lugar destacado en es- 
fa invasion de productos. 

Desde las primeras piezas de museo, en las 
que solo saiia en pantalla la linea del horizon- 
te, y unos cuantos indicadores digitales de al- 
fitud, veloddad, etc., hasta los actuales, en los 
que impresionantes efectos tridimensionales 
hacen aparecer aviones enemigos que nos Ian 
zan misile? la cosa ha evolucionado. 


Mucho mas que tirar 
del joystick 


Dentro del mundo de los juegos, los simula¬ 
dores ae combate ocupan un sitio especial, 
r Nos encontramos ante un tipo de juego que 
jDrerisamenfe no es de matar marcianifos, es¬ 
tos programas requieren mucho mas que ti¬ 
rar del joystick para su utilizacion. En ellos nos 
encontramos a los mandos de un caza, y lie- 
mos de interceptor al enemigo, que se encuen- 
tra en una posicion detectada por el radar en 
tierra. 

Una vez conocida la posicion de nuestro 
enemigo, hemos de reproducir todo el proce- 
so que realizaria un piloto de verdad. 

En primer lugar hemos de despegar de la 
pista, para lo cual encenderemos el motor, ac- 
cionaremos los flaps, aceleraremos y nos ele- 
varemos. 

Cuando hemos cogido altura, es la hora de 
ocultar el tren de aterrizaje y consulfar el ma- 
pa para localizar la posicion del enemigo. 

Si el modelo de sirriulador es avanzado, el 
ordenador de abordo nos llevara automati- 
camente al encuentro con el, si no, tendremos 
que navegar en su busqueda, valiendonos de 
todos los instrumentos de navegacion. 

Tras varios minutos de singladura, nos en¬ 
contramos en la posicion del avion a cazar: 
el mapa nos indica su proximidad y nuestros 
ojos escudrinan el aire a nuestro alrededor en 
su busqueda. 

Al fin vemos un punto que se aproxima ha- 
cia nosofros; es el momenta de armar el siste- 
ma de misiles y prepararnos para abordarle. 

Con el dedo sobre el boton de disparo, in- 
tentamos ponernos a la cola del avion enemi¬ 
go aumentando la veloddad; cuando nos en¬ 
contramos tras su estela, una ligera pulsacion 
ael disparador y presenciamos la trayectoria 
del misil tras el reactor del aparato, Unos se- 
gundos despues la explosion de! aparato, nos 
permite ahadir una muesea mas a nuestro re¬ 
cord de derribos. 

Pero mientras observamos con orgullo co¬ 
mo caen los restos del caza enemigo, nuestros 
mementos de falta de concentrocion, han si¬ 
de aprovechados por otro caza para colocar- 
se a nuestra cola. 

Solo nos queda intentar una maniobra de 
defensa, o seremos derribados inmediatamen- 
te. Forzondo al maxima las posibilidades de 
nuestro caza, realizamos una fijera para in¬ 
tentar colocarnos a su cola. 

Hemos fallado en nuestro intento de eva¬ 
sion, y la situacion se complica, intentamos un 
giro en el aire, pero ya es demasiado tarde, 
un misil ha sido lenzado y su impacto llega cer- 
tero con una terrible explosion que inunda de 
fuego nuestra cabina. 

En el espacio de tiempo transcurrido desde 
nuestro despegue, hasta el contacto con el 
avion enemigo, hemos tenido que accionar un 
elevado numero de confroles, al igual que vi- 































gilar el calentamiento de motores, gasto de 
combustible, controlar el rumbo, etc. 

En el combate hemos de situar la mira, 
aumentar velocidad, colocarnos a la cola del 
enemigo, armar misiles, tirar de la ametralla- 
dora y derribar al otro caza. 

Esios son los factores que hacen de un simu- 
lador de combate, un programa mucno mas 
complicado e interesante que una simple ma- 
tanza de marcianitos. 


Computadora de vuelo, se utiliza indistinta- 
mente para servir de guia en el aterrizaje, asf 
como para el combate aereo, donde se de- 
muestra su eficacia. 

Indicador de aterrizaje, con el podemos 
comprobar que nuestra maniobra es correc- 
ta. midiendo el angulo de inclinacion que lle- 
vamos. 

Combustible, indicador del tren de aterrizaje 
y mapa. 





El camino de los simuladores ae combate en 
el Amstrad, se inicia con el Fihgter Pilot, pro¬ 
grama de la casa Digital Integration. 

En este caso estamos a los mandos de un 
F-15, y nos disponemos a interceptor al ene¬ 
migo. 

La cabina de mandos aparece ante nuestros 
ojos, cuajada de instrumentos e indicadores. 
Para pilotar nuestro avion disponemos de una 
amplia gama de controles: 

Horizonte artificial, con un avion indicador 
de la posicion y los valores numericos de los 
angulos. 

Altimetro e indicador de velocidad. 
Indicador de velocidad vertical, con el cual 
podemos determinar la velocidad de ascenso 
o descenso de nuestro caza. 

Empuje, con indicador grafico de por- 
centaje de fuerza de propulsion y 
calentamiento de motores. 

Radar y brujula, con los cuales 
□irigimos nuestro caza, apoyando- 
nos en las distintas bases de tierra, o 
siguiendo en el mapa la posicion de nues¬ 
tro enemigo. 

Modo de combate. 

Con el iniciamos la maniobra de aproxima- 
cion a nuestro bianco. Al ser activado se po- 
nen en funcionamiento el radar y la compu¬ 
tadora de vuelo, dandonos los datos exactos 
de su posicion y altitud. 


Indudablemente una ampiia gama de ins¬ 
trumentos e indicadores. que gobiernan el ca¬ 
za. Para pilotar el F-15 tenemos que manejar 
junto con el joystick 16 teclas, lo que da idea 
de la complejidad de la operacion de pilotar 
este aparato. Nos encontramos ante un pro 
grama en el que el manejo del avion, debido 
ai elevado numero de controles, resulta un po- 
co costoso; en todo mornento ante nuestros 
ojos tenemos presentes los tableros de man¬ 
dos y a la vista a troves de la cabina del piloto. 

Los graficos en tres dimensiones estcrn he- 
chos a base de lineas, prescindiendo de la 
uiilizacion del colorido; la sensacion tri¬ 


dimensional es aceptable, pero poco espec- 
tacular. 

Un programa con excesivo numero de te¬ 
clas a utilizar, en el cual la navegacion se ha- 
ce lenta y la localizacion del enemigo bastan- 
te laboriosa, recomendado especialmente pa¬ 
ra los meticulosos de las tecnicas de vuelo, que 
se tendran que armar de paciencia hasta po- 
nerse a la cola del enemigo. 
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Dam busters 


Todos los programas trafados anteriormen- 
te, tem'an una caracferfstica en comun; aun- 
que se tratara de modelos mas antiguos o mo- 
dernos, siempre pilotabamos un caza, el Ha¬ 
rrier, el Spitfire, el F-15, o el futurista Skyfox. 

Pero coma la calenturienfa imaginacion de 
los creadores de software no puede estancarse 
en la vulgaridad, se les ocurre romper con to- 
dos los moldes, reproduciendo una accidn de 
guerra real de la Segunda Guerra Mundial. 

En primer lugar, ya no pilotamos un caza, 
sino que estamos a ios mandos de un bombar- 
dero pesado Lancaster, y como toque disfin- 
tivo, nuestro objetivo son las presas de la zo¬ 
na industrial del valie del Ruhr, en pleno co- 
razon de la Alemania nazi. 

Como se trafa de manejar un bombardero 
pesado, ya no basta con la vision a fraves de 
a cabina del piloto, como en los cazas, aqui 
tenemos una completa dotacion de personal 
con distintos puestos asignados, a los que no- 
sotros debemos sustituir. 

Los puestos que hemos de ocupar son los de 
piloto, artillero principal, artillero de cola, ope- 
rador de bombas, navegante, ingeniero jefe 
e ingeniero segundo. 

El programa esta concebido de forma que 
el cambio de puesto se realize de forma facil, 
y permifa el desarrollo paralelo de la mision 
sin interrupciones. 

Cada elemenio de la tripulacion, tiene asig 
nada una pantalla distinta, de forma que con 
un simple toque de tecla cambiamos al pues¬ 
to deseado. 

Con esfe metodo conseguimos dominar el 
aparato, solamente con el joystick y el uso de 
siete tedas, facilitando la complicada tarea 
que represenfa hacer las veces de la dotacion 
completa de un Lancaster. 

Para romper mas aun con la linea dasica de 
los simuladores de vuelo, Dam Busters intro¬ 
duce un nuevo sistema de pilotaje, que no re¬ 
quire la pulsacion ni de media tecla. 


La sala de maquinas, donde se encuentran 
los mandos que gobiernan los motores del 
avion, asombrosamente estd toda gobernada 
por el joystick. 

Una vez que nos encontramos en la panta 
lla del ingeniero jefe, aparecen los ocho indi 
cadores de revoluciones y de inyeccion, y las 
ocho palancas que los accionan, mas las cua- 
tro que sirven para extinguir el fuego en ca¬ 
da uno de los motores. 

No hemos de olvidar que el Lancaster esta 
dofado de cuatro motores, caaa uno de los 
cuales se puede manejar por separado. 

Para accionar toda esta serie de mandos so¬ 
lo hemos de hacer uso exclusivo del joystick. 
Un punto negro aparece debajo del grupo de 
palancas y para manejar la deseada solo he¬ 
mos de mover el punto hasta ella, y una vez 
sifuada debajo tirando del joystick hacia arri- 
ba o hacia abajo, la palanca se mueve en la 
misma direccion. 



Con este metodo grdfico de accionamiento 
de controles, no hay problemas de tedas ni 
de vigiliar numeros. 

lodo el programa estd tratado con unos 
graficos excelentes, el dibujo de cada panta¬ 
lla, ayudado por el efecto de la vision noctur- 
na, estd tratado con un hiperrealisfa efecto 
perspective, pareciendo realmente que nos en¬ 
contramos dentro de las distintas cabinas. 


Un programa con un concepto totalmente 
nuevo, realizado con excelentes graficos, y en 
e! que los distintos puestos que hemos de ocu¬ 
par, y la minuciosidad con que hemos de e$- 
tudiar el lanzamiento de las bombas rompe- 
doras, le dotan de un interes y emocidn insu- 
perables. Su creadora la casa U.S. Gold. 

Como podemos ver los usuarios de Amstrad 
Interesados por el mundo de los simuladores 
de vuelo, tienen una amplia garna de posibi- 
lidades para eiegir. 

Sea cual sea el tipo de programa que mas 
se ajuste a nuestras preferencias, encontrare- 
mos uno a nuestra medida. 

Si deseamos un simulador de los de la viejo 
escuela, con largas maniobras de vuelo y 
aproximacion, manejando multitud de contro¬ 
les, tenemos el Fighter Pilot. 

Si por el contrario nuestro gusto se dirige ha¬ 
cia maniobras mas rapidas, ufilizando un nu- 
mero mas reducido de controles; aderezadas 
con unas pantallas de cabina y panel de man¬ 
dos, de un sobervio realismo grdfico, nuestro 
programa es el Spitfire 40. 





Para los amantes de aviones mas modernos 
y sotisficados, en los que hemos de manejar 
una gran cantidad de controles, y en los que 
la mision pasa a ser estrategica, incluyendo 
combates tierra aire y aire aire, la solucion ido- 
nea es el Strike Force Harrier. 

Los que no quieran complicarse la vida con 
multitud de tedas y largas aproximaciones de 
vuelo, lo tienen muy facil: el Skyfox ofrece la 
posibilidad de aniquilar a base de misiles o 
ametralladora; tanques y escuadrillas enemi¬ 
es, en un programa de accion total y los me- 
jores efectos tridimensionales. 

Los que en cambio quieran reproducir el cur- 
so de la historic, se econtraran de lleno en la 
mision mas audez de la Segunda Guerra Mun¬ 
dial, a los mandos de un bombardero Lancas¬ 
ter, en un programa en que todo ha sido he- 
cho para manejarse sin esfuerzo, con excelen¬ 
tes graficos y en el que las emociones de una 
incursion nocturna se saborean hasta el final. 

Despues de ver todo esto, jquien no se pre- 
gunta como serdn los nuevos sim jladores de 
vuelo? 
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RJKE FORCi 
iHARRIER 


El protagonista ae esta nueva 
pieza de software, es el famaso 
Harrier, un avion mucho mas 
proximo a nosotros que el ante¬ 
rior, y con la especial caracteris- 
fica de que sus motores orienta- 
bles, le permiten despegar 
yaterrizaren vertical. 

El programa es de la 
misma casa que el an¬ 
terior, por lo cual a pri- 
mera vista ya sabemos 
que encontraremos un 


defense y ataque en vueio que permite nues- 
tro Harrier. 

En la cabina de mandos tenemos los siguien- 
tes controles: VAV dispositivo de informacion 
de vueio. Con el podemos obtener los datos 
de velocidad vertical, veiocidad relativa, gi- 
rocompas, altura sobre el nivel del suelo 
y cabeceo del avion respecto a la hori¬ 
zontal. 

Mira de bombas, con el punto de 
posible impacto si se sueita 
una bomba. 


rrizaje, bases de misiles SAM, tanques, avio- 
nes y misiles enemigos. 

Por ultimo temenos la pantalla de mensajes, 
que es la terminal del ordenador de vueio, en 
la que se nos da informacion de inestimable 
valor. 

Sin ninguna duda estamos ante el mas com- 
pleto y sofisticado de los simuladores tratados 
hasfa ahora. Las caracteristicas del Harrier con 
sus motores orientables y el concepto fotalmen- 
te nuevo de este avion de combate, hacen que 
su conduction requiera una tecnica disfinta a 
la de los aviones convencionales. 

El numero de teclas que accionan los disfin- 
tos controles y dispositivos es de 20 mas el joys¬ 
tick; un completo panel de mandos. 

Este programa, ademds de las caracteristi- 
cas de simuiadon de vueio, introduce una nue¬ 
va variante en los simuladores y nuestra mi¬ 
sion no solo se limita a derribar aparatos ene¬ 
migos, sino que se trata de una complete in¬ 
cursion en su territorio. 

Nuestro objefivo es su Cuartel General, que 
se encuentra a 500 millas de nuestra position. 
Para ilegar hasfa el, hemos de combatir a ias 
fuerzas acorazadas enemigas que hostigan 
nuestros puntos de apoyo en tierra, las cua- 
les nos serviran para reabastecer las deficien¬ 
cies de armamento y combustible. 

Aparte de los combates aire tierra, tambien 
tenemos que eliminar a los cazas MIG-26, que 
patrullan los aires en nuestra busqueda. 

Harrier es un completo simulador de vueio, 


produdo de una calidad inmejora- 
ble. 

Si hay algo que impresiona al 
abrir la carpeta de Harrier, es el librito de ins- 
trucciones, que contiene 26 paginas, las cua- 
les estan cuajadas de explicaciones de los ins- 
Irumentos que manejamos, tecnicas de vueio, 
controles, description de la mision, y una com¬ 
plete guta ilustrada de las distintas tecnicas de 


Localization de 
puntos de aterrizaje, 
donde el personal de tie¬ 
rra puede abastecernos. 

Mira de misil. 

Visualization multifuneional; con informa¬ 
cion del vueio y estado del armamento, po- 
tencia de empuje, vector de empuje, alimen¬ 
tation de combustible, posicion de flaps, tren 
de aterrizaje y frenos. 

Radar de ataque aereo; que detecta en un 
radio de cinco millas la posicion tanto de avio¬ 
nes enemigos, como de misiles SAM y radar 
de identification y seguimiento; con el pode¬ 
mos reconocer el terreno que se encuentra 
dentro del area de operaciones, en el se iden- 
tifican montanas, bases de tierra, pistas de ate- 


dotado de buenos graficos tridimensionales 
realizados a todo color, y en el que se intro 
ducen conceptos de mision complete, en la que 
la estrategia y el aprovechamiento de las ex- 
cepcionaies caracteristicas de nuestro caza 
marcan la diferencia. 

Otro gran programa de Mirrorosoft. 
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LANCASTER B. MK \/\\\ (DAM BUSTER) 


i^pasionante! 


Son las 21 15 horas del 16 de Mayo. Un bombardero Lancaster en vuelo especial, aespega ae InglateiTa nacia Alemama. Despues de meses 
e preparation, el escuadron 617 vuela en una operacion destinada a cambiar el curso de la II GueiTa MundiaL Su objetivo es destruir las 
mas imporianies presas alemanas para paralizar los pantos vitales de sus fabricas de armamento. 

iste detallado y autentico Simula dor te permite ocupar los puestos de: Piloto, Ingeniero de vuelo, Artillero delantero y tame.. 
Bombardero y Navegante. Volaras a troves del Canal de la Mancha y Europa intentando evitar a los temibles ME-110 alemanes ze; ;. 
lines, focos antiaereos y todos los demas peligros a los que se enfrento el comando Ingles 


PIDE ESTOS PROGRAM AS A ERBE, SANTA ENGRACIA. 17, 28010 MADRID. TFN. (91) 447 34 10 - Y EN LAS MEJORES 
TIENDAS DE INFORMATICA TIENDAS Y MAYORISTAS.. CUMPLIMENTAMOS SUS PEDIDOS EN 24 HORAS 






































































En Spitfire 40 encontramos excelentes grafi- 
cos, emocion y tension; el manejo del aparato 
no requiere horas de practica, y la localizacion 
de enemigos se realiza de forma bastante ra- 
pida. Un programa en el que en la fase de com- 
bate se pueden ejecutar tecnicas de evasion, pi- 
cados, loopings y lo que nos apetezca para po- 
nernos a la cola del caza enemigo y aniquilar- 
le. 

La casa autora del softwares es Mirrorsoft. 
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Spitfire 40 
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En este programa nos encontramos ante un 
modelo historico, el mitico avion de caza de la 
II Guerra Mundial. 

Nuestra cabina de mandos tiene los siguien- 
tes indicadores: Horizonte artificial, indicador 
de velocidad vertical, revoluciones del motor, 
brujula, altimetro, timdn de cola, indicador de 
giro y deslizamiento e indicador de indinacion. 

El conjunto de indicadores y manecillas, re- 
producen exactamente los controles de este 
avion, permiiiendo un pilotaje precise y no ex- 
cesivamente complicado. 

Unos minutos de practice siguiendo los con- 
sejos de las instrucciones, nos permitiran hacer- 
nos con el aparato; en total manejamos 10 te- 
das junto con el joystick. 

Hasta aqui, podriamas decir que nos encon¬ 
tramos ante un simulador mas, brujula, altime¬ 
tro, tren de aterrizaje, jPero que aporta de nue- 
vo este programa? 

Hemos de decir que lo mejor del Spitfire 40, 
son sin lugar a dudas los grdficos. En este pro¬ 
grama se ha salido del concepto tradicional de 
simulador de combate, para entrar en una nue- 
va dimension en esta dase de programas. 

La diferencia de los demas, en el Spitfire te- 
nemos la autentica sensacion de encontramos 
en la cabina del piloto. 

Tenemos dos vistas basicas; la del tablero de 
mandos y la de vision del exterior, co¬ 
da una de las cuales esta trata- 


da con una riqueza grafica, que parecen de 
verdad. 

En el tablero de mandos, los indicadores es- 
tan compuestos por relojes, manecillas y bru- 
julas, todas hechas reproduciendo exactamen¬ 
te los mandos del avion de la II Guerra Mun¬ 
dial. 

la vision a traves de la cabina esta enmar- 
cada por las barras que soportan el fuselaje, 
dibujadas con un aran efectismo tridimensional, 
que nos incita a aescubrir lo que hay detrds. 

Todos los graficos estdn hechos en el modo 
de dieciseis colores, lo que ayuda a darle es- 
pectacularidad al juego. 

Si hasta aqui el programa parece bueno, no 
es nada con lo que nos espera en el combate. 

Cuando nos aproximamos al avion enemigo, 
entonces si podemos apreciar que es un pro¬ 
grama en tres dimensiones: delante de noso- 
tros la negra silueta de un caza, se mueve in- 
tentando esquivarnos. Comenzamos a ametra- 
llarle sin piedad, y nuestro adversaria intenta 
un giro para escapar. Cuando nos acercamos 
a el su tamafio crece desmesuradamente y una 
certera rafaga le hace caer. 
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C-61 - Spectrum - Amstrad 


El caza de los Vencedores, Skyfox de DRO SOFT 



Simulaci6n de suelo triBj 
jimensional de combat<r 
.icreo y ataque al suelo.Lt 


Canco niveles, quince 
^scenarios y c a pad dad 
de juego estratcgico. 


Esuis en la cabina del caza que scria el sueno 
de cualquier piloto. pero desdc hi ego eres un 
mal sueno para el pobre tipo que denes delante, confiado 
en una mision sin problemas Calientale la tobera con tus 
laser y apartate mientras estalla en una 
bola de tucgo. Rapidamente ponte en 
picado para caer sobrc los blincltdos 


enerrngos, romo la peste entre los cerdos. 
SKYFOX es el juego que mas rapidamente 
se esta vendiendo en toda la historia de Electronic ARTS. 
Posee la mas asombrosa animat ion de alta veloridad 
que hayas \isto en tu ordenador. 
Aliora puede ser tuyo totalmente 
uaducido al castcllano. 


EN CASTELLANO 


DRO SOFT P.V.P.: 2500 pts. ELECTRONIC ARTS 

CARACTERISTICAS: NACIONALIDAD: Eedcracion galactita. FABRIC ANTE: TOBEV ASTRONAUTICS J IPO- Caza iiuerccptor rmilupruposito PROPEL 
SION AUXILIAR: Un gcnerador amigravitatorio a 66 MK.I I RIPULACION: Un humano. ARMAMLNTO. Dos onfiones lAsorde tucgocoiuinuodfc70 kilojiilios 
10 toncladas de empiiTc. 5 misiles rasucadoies de calor tipo PHOENIX a mmles'guiados por radar tipo I VP1IOON DEI EKSA: — 2 unidadcs deflectoras WCRC 
AYUDAS ELEC IRON ICAS: Radar SCAN NT. R de largo y curio alaincc concctahle al piloto automalico. VELOCIDAD EN AT MOSELRA: — 3.000 MPH 
(Mach IV a 35.000 pi^sj. 
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Si hasta ahora hemos tratado simuladores 
de vuelo, en los que el control del aparato re- 
queria el manejo de una largo serie de teclas 
y controles, en Skyfox se simplifica este pro- 
ceso para hacer que la conduccion del caza 
se realice unica y exclusivamente con el joys¬ 
tick. 

Con Skyfox, salimos de los tipicos simulado¬ 
res de vuelo, y nos adentramos en una ver¬ 
sion mas cercana a los arcades. Cn este pro 
grama la accion se desarrolla a ritmc trepi- 
dante, y nos vemos envueltos en una llnvia de 
fuego, aniquilando uno tras otro tanques y 
aviones enemigos. 

Nuestro panel de mandos esta compuesto 
por los siguientes indicadores: 


Coordenadas de vuelo, reloj digital, pantalla 
de radar, brujula digital, indicadores de ve- 
locidad y altitud, nivel de combustible, esta- 
do del escudo protector y numero de misiles 
disponibles. 

En la misma pantalla aparece la cabina del 
piloto junto con el panel de mando. La vision 
a traves de la cabina es uno de los puntos fuer- 
tes de este programa. 

En el encontramos los mejores efectos tridi 
mensionales producidos por cualquier progra¬ 
ma de esta close. La sensacion de velocidad 
y acercaniiento a los elementos hostiles, es ver- 
daderamente apabullante. 

Los graficos de tanques y aviones aumen- 
tan de tamano considerablemente al acercar- 


nos a ellos, siendo sin duda los mas grandes 
que se ha visto en esta clase de programas, 

Esto refuerza considerablemente la sensa¬ 
cion de acercamiento y velocidad, parecien- 
do incluso que podnamos hasta chocar con¬ 
tra ellos. 

Una innovacion interesante, que facilita con¬ 
siderablemente la aproximacion a los cazas 
enemigos, es la inclusion del piloto automdti- 
co de intercepcion; con este sofisticado artilu- 
gio, el ordenador de vuelo del Skyfox nos Ne¬ 
va directamente hacia los aviones detectados 
por el radar. 

De esta forma evitamos largas navegacio- 
nes de aproximacion a los objetivos, hacien- 
do que e! combate se desarrolle de forma ra- 
pida y sin que dejemos de accionar el dispa- 
rador del joystick ni un solo instante. 

Para hacer fuego contra blancos dificiles dis- 
ponemos de dos tipos de misiles: los guiados 
por el color y los autodirigidos, con los cuales 
podemos atacar a las escuadrillas de cazas 
que aparecen ante nosotros. 

Nos encontramos ante el simulador de com¬ 
bate que se maneja con mas facilidad. En 
Skyfox no hay que realizar complicadas ope- 
raciones de despegue y mantenimiento del 
rumbo, etc. 

Aquf todo se desarrolla de forma rapida y 
persiguiendo la total aniquilacion de lo que 
aparezca por pantalla, los blancos son detec- 
tcdos por el radar, y el piloto automatico nos 
dirige a su pos'cion con solo pulsar un baton. 

Uri caza de la tercera guerra mundial, que 
pilotaremos con total soltura, sin haber trans 
currido mas de dos minutos desde que nos ha- 
llamos sentados a los mandos. 

Skyfox es un productc de Electronics Arts. 
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Robotic a 


Los avances tecnicos logrados durante los ultimas 
a nos del siglo XX superan a todos los realizados 
durante el resto de la Historia del homhre. Si esto 
ya de por si es suficiente atractivo, hay un tema 
cuyo desarrollo lo hace aun mucho mas excitante: 
iEstamos hablando del robot! 

Y ique poder tiene el robot que no tienen otros 
descubrimientos, incluido el ordenador (mal 
llamdo «cerbro electronico»)? 


mas 

remotos se ha convertido al robot en un mifo 
universal que aparece en todas las cultures y 
religiones que tienen un minima de tradicion. 
Vamos a tomar dos ejemplos representatives 
de todos los que existen en la nuestra para no 
extendernos mucho y ademas porque es la que 
mejor conocemos. gDe acuerdo?. 

jQuien no recuerda la odisea de aquel es- 
cultor, llamcdo Pygmalion, que se enamoro 
tan tiernamente de una de sus figures de mar- 
mol que conmovio el corazon de la diosa Ate- 
nea hasta el punto que dio vida a la obra y 
la convirtio en una Galatea de carne y hue- 
so? 

Y, por cierto, esta historia tiene un reflejo 
mucho mas moderno. Suponemos que a na- 
die se le habra pasado por alto el paralelis- 
mo que tiene con la historia de Pinocho que 
mas tarde escribio Collodi. Esto nos confirma 
que a pesar del paso de los arios, la idea de 
la escultura animada sigue interesando. 

Pero no son los unicos. La tradicion hebrea 
nos habla de una figura de barro, a la que se 
da forma bajo las leyes de la Cabala y debe 
modelarse en un momenta especialmente di- 
ficil para la Humanidad, para despues insu- 
flarle la vida por medio de una Estrella de Da¬ 
vid colocada a la altura del «corazon». Se 
trata del «Golem». 

La reflexion mas importante que podemos 
sacar de esta historia es que el hombre crea- 
ba al Golem para salvar a la Humanidad de 
algun mal y, una vez superado el peligro, se 
le destruta. Era como una especie de heroe- 
esclavo que«nacfa» con un determinada fi- 
nalidad y cuando ya habia conseguido cum- 
plirla, sencillamente desaparecia. 

Ademas de esta verfiente mitologica, los ro- 
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bots nos atraen por un monton de cosas mas. 
No cabe duda que para la mayoria de las per¬ 
sonas es muy diffcil dejar atras esa especie de 
«morbo» ligado intimamente a los muhecos, 
las riguras de cero, los androides que repre- 
sentan algo que se queda a medio camino en- 
tre la vida y la falta de ella, la imiran pero son 
incapaces de participar, al menos consciente- 
mente, en alguno de sus aspectos. 

Hasta ahora hemos estado utilizando con fo- 
da soltura y sin el minimo recato la palabra 
«robot», y tenemos que decir que hemos te- 
nido un tremendo lapsus. En el ario 1917 se 
emplea por primera vez, y con propiedad di 
cha palabra en la obra Opilec de Karen Ca- 
pek, donde se da forma a cada uno de los con- 
ceptos que la componen. 

Y es en 1942 cuando se comienza a oir ha- 
blar de la «robotica» como ciencia que trata 
de los robots, por supuesto. Isaac Asimov fue 
el iniciador e impulsor de esta nueva parceia 
del conociminto, asi como de ofras muchas ya 
conocidas por todos nosotros. 

De este modo lo anterior a estas fechas en- 
tra dentro del hombre artificial o del automa¬ 
ta, que serfa el mas claro precedente del ro¬ 
bot. 

Para conocer datos certeros sobre el cam- 
po de los automates nos encontramos con pro- 
blemas verdaderamente insalvables. Muchos 
de ellos han desaparecido y no podemos com 
probar que fueran capaees de realizar las ma- 
ravillas que sus creadores cuentan largamen- 
te en sus cronicas. 

Sin embargo, si tenemos pruebas de verda- 
deras e ingeniosas maravillas que funcionan 
a base de aire, vapor de agua o complicados 
sistemas de relojena que, como ya hemos di- 
cho, pueden considerarse antecesores (leja- 
nos, eso si) de los robots. Pero dejemos este 
tema aconsejando a los interesados que bus- 
quen en su lacalidad algun museo donde es- 
ten recogidas algunas de estas sorprendentes 
mdquinas. 


Fue a partir de la Segunda Guerra Mundial 
cuando las grandes empresas comenzaron a 
interesarse por la automatizacion para mejo- 
rar la produccion en cadena de fabricas y ta- 
lleres. Los primeros robots industriales se uti- 
lizaron en aplicaciones tales como coger pie- 
zas y colocarlas en un determinado sitio. 

Dentro de este campo hay que destacar la 
figura de George C. Deval, considerado co¬ 
mo el padre de la robotica. Desde nuestra 
perspective actual sus creaciones pueden pa- 
recernos un poco ingenuas. Por otra parte era 
un iiel seguidor de Asimov, lo que quiere de¬ 
cir que quiza fuera mas imaginative que teo- 
rico, pero en 1954 ya habia postulado todos 
los elemental y conceptos que forman parte 
de los actuales robots industriales. jEsia de 
acuerdo con nosotros en que todo eso le con- 
vierte en el verdadero padre de la «roboti* 
ca»? 




























Hasfa aqui puede servir la introduction, pe- 
o entremos directamente en el tema. Y asf, 
Je golpe, lo primero que se nos ocurre es pre- 
juntarnos: gque es un robot? 

Todos nosotros tenemos dos ideas claramen 
e diferenciadas, que son incluso contradicto- 
-ias, respecto a la palabra robot. Por un lado 
,enemos una tradition cultural, de la que ya 
hemos hablado, potenciada poco a poco por 
;a literatura de ficcion (el genero de ciencia- 
ficcion, para ser exactosj y mas recientemen- 
te el cine. 

Segun esta idea romantica, el robot es un 
ser hecho a semejanza del hombre (mas o me- 
nos), con unas capacidades cada vez mas hu- 
manas, de forma que algunos son capaces de 
tomar decisiones por st mismos y otros iienen 
claros deseos de inmortalidad o incluso de pro¬ 
creation. 

Frente a este concepto se encuentra la rea¬ 


lidad. No todos los robots estan creados a ima- 
gen del hombre, es mas, la mayor parte de 
ellos estan fabricados imitando funciones hu- 
manas, no su ospecto. Se les diseha funcional- 
mente para que sean capaces de realizar una 
serie de trabajos muy definidos tal como de- 
tiamos anteriormente al referirnos a los robots 
industrials. 

Bueno pero, £que es un robot?. Tal vez 
podamos decir que es una maquina con ca- 
pacidad para ser programada y que, por tan- 
to, puede memorizar una secuencia de ope- 
raciones y repetiria incansablemente. 

Parece un definition muy pobre pero, sin 
emDargo, es lo sufkientemente amplia como 
para aloarcar las diferentes generaciones de 
robots asi como sus distintas configuraciones 
mecanicas y funcionales. 

Tal vez debtamos olvidar por un momento 
la pregunta anterior, realizada tan directa¬ 
mente, para intentar rodearla y llegar a en- 
contrar su respuesta a traves del estudio de 
la robotica actual y asi desde el conocimiento 
de casos particulares tal vez seamos capaces 
de llegar a un concepto general vdlido. 

De rnomento, lo que si parece claro, y apli 
cable a la mayoria de los casos, es que el ro¬ 
bot es una maquina especializada. Y cada uno 
esta pensado, disenado y monlado para curn- 
plir su mision con la mayor exactitud. 

Vamos a verbs despacito y de cerca. Para 
ello los dividiremos en dos grandes aparlados: 
los que no se parecen en nada a los humanos, 
en cuanto a su estructura y aspecto, y los lla- 
mados «androides». 

Y ames de empezar a recorrerlos uno por 
uno, vamos a pedir disculpas a los robots de 
la iavadora, el homo, la plancha, etc. porque 
en una sabia decision unilateral hemos deci 
dido sacarles de la definition de robot. Para 
ser mas exactos diremos que estan mucho mas 
cerca de ser pequenos ordenadores. En 'in, 
perdon. 

Son ya muy antiguos los mecanismos que tie- 
nen por finalidad la manipulation a distancia. 
Pero es a partir de la Segunda Guerra Mon¬ 
dial y la necesidad de trabajar con material 
radiactivo la que impulsa el perfeccionismo de 
estas manos teledirigidas. Desde este momento 
puede hablarse de una verdadera especiali- 
zacion de estas mdquinas y de los brazos de 
robots, que son los que nos interesan en este 
caso y que pueden considerarse sus descen- 
dientes. 

Los fines para los que se crearon fueron me- 
ramente industriales. Se usan para eager, co- 
locar, atornillar, perforar, etc. Como vera se 
trata de realizar trabajos muy especificos den- 
tro de una cadena de montaje, sustituyendo 
la operation mecanica del hombre. Tienen la 
ventaja de que no se cansan, no se distraen 
y tienen una mayor fuerza, pero en cambio 
son mucho mas pesados. 

Pero lo verdaderamente interesante de es- 
tos brazos, aunque no es una de las areas mas 
expiotadas, es su combination con un vehtculo 


Sin ir mas lejos reconocio que todavia exis- 
tia un largo camino por recorrer en este cam- 
po ya que los prototipos de su creation tenian 
grandes deficiencias. Y fambien contagio su 
entusiasmo a Joseph Engelberger (otro ena- 
morado de Asimov), creador de la primera 
empresa cuya finalidad era la fabrication ro¬ 
botica. Hoy en dia la Engelberger Unirnation 
Inc. continue siendo una de las mayores su- 
mhistradoras de robots industriales. 

Para ser sinceros donde la robotica ha ex- 
perimentado un verdadero auge tanto por el 
interes que despierta su estudio como por su 
utilization masiva ha sido, siaue siendo y pro- 
bablemente lo sera por muclio tiempo en Ja¬ 
pan. En este pats la robotica industrial no so¬ 
lo dobla las cantidades de cualquier pais in- 
dustrializado, sino que se renueva constante- 
mente. Dia a dia podriamos decir sin miedo 
a exagerar. 
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sus posibilidades, su manejo. Para investiggr 
por nosotros mismos e intentar crear o mejo- 
rar un programa que lo mueva con precision, 
Un ejemplo cldsico que le brindamos es inten- 
tar jugar ol ajedrez o las damas con un brazo 
educacional y un buen programa, quiza co- 
dificado por nosotros mismos, ejecutado por 
nuestro ordenador. 


movil. Ciertamente este conjunto perderia al¬ 
go de fuerza en tomparacion con un brazo 
solidamente apoyado, pero a cambio facilita- 
rla su presencia alii donde fuera necesario. 

Si esta unido a un ordenador podriamos 
conseguir evitar choques. Dirigido desde una 
pantalla, por ejemplo, el robot movil recoge 
y transporta cajas de un almacen, libros de 
una biblioteca, etc. para despues colocarlos 
con precision en su lugar exacto. 

En cuanfo a las bases sobre las que estdn 
colocados estos brazos son tambien robots. Es- 
tan unidas a un ordenador que las dirige a tro¬ 
ves de unas «pi$ta$» que estdn formadas por 
rafles, cables electricos e incluso lineas en co¬ 
lor . Es evidente que en este ultimo caso debe- 
rari estar provistas de unas celulas sensibles a 
la luz. 

i odos ellos deben disponer de sensores que 
eviten choques en cualauier clrcunstancia, de- 
teniendo el vehiculo cuando en su camino apa- 
rezcan obstaculos mas o menos imprevistos, 
incluido el operario humano que tiene todo el 
derecho del mundo a cruzar la fdbrica o el al¬ 
macen. 

Pero no solo podemos destinarlos a esfas mi- 
siones tan concretas. Sofisticando y comple- 
mentando estos brazos con una serie de celu¬ 
las, sensores, luces, Camaras de T.V., etc. son 
capaces de realizar operaciones mucho mas 
delicadas en lugares donde, bien por condi- 
ciones hosfiles, bien por economia o por am- 
bas cosas a la vez, sea mas beneficiosa la pre¬ 
sencia del robot que la humana. 

Hablamos, por ejemplo, de! espacio exte¬ 
rior, donde la toma de muesfras se realize con 
estos brazos aplicados a las naves, satelites o 
vehiculos espaciales. Y podemos aplicar esto 
mismo al fondo del mar, las zonas subterrd- 
neas, las prospecciones petrolifera; tambien 
pueden resultarnos imprescindibles en algo 
realmente peligroso: las minas. En este caso 
estardn dotados tambien de algun accesorio 
especial que corte las rocas antes que el bra¬ 
zo comience a acfuar. 

Otra aplicacion importante de este tipo de 
herramientas es puramente militar. Son unos 
desactivadores de explosivos realmente effa¬ 
ces y no ya solo por la importantisima circuns- 
tancia de salvor vidas humanas, sino porque 
ellos mismos tienen lo que nosotros entende- 
riamos como «instinto de conservacion* y se 
aufoprotegen de la mejor forma para que los 
danos que sufran sean menores, con lo que 
la parte economica sale tambien beneficiada. 

Pero a nosotros, usuarios, enfusiasmados y 
enloquecidos con nuestro Amstrad, lo que 
nos interesa mas bien es la aplicacion que uno 
de estos brazos podria tener respecto a nues¬ 
tro ordenador. 

En efecto, desde hace ya unos anos algu- 
nas casas ban comercializado unos genios cu- 
ya finalidad esencial es la educative. Un bra¬ 
zo de robot en casa va a servirnos ni mas ni 
menos que para aprender su funcionamiento, 


La gran diferencia entre estos brazos y los 
industriales es el tarnaho y, consecuentemen- 
te la fuerza que desarrollan. Por tanto, la gran 
posibilidad que tenemos es intentar potenciar 
sus habilidades, por ejemplo, cambiando la 
pinza (o dedos roboticos) por imanes o vice- 
versa. Incluso los mas «manitas» pueden in¬ 
tentar realizar sus propias creaciones con di- 
ferentes materiales, darle mas potencia (y qui¬ 
za nos ayude a colocar nuestros libros, discos 
o videos). No se limite a montar los kits tal co¬ 
mo vienen preparados de la fdbrica, sino in- 
tente hacer un robot a su medida. 

Pero quiza mucho mas divertidos que estos 
brazos sean los robots de suelo. Su fabrica¬ 
tion no tiene por que ser mas cara que la de 
los anteriores y, sin embargo, sus posibilida¬ 
des son bastante superiors. 

Su diseno abarca desde la imitation de las 
mas avanzadas tecnologias hasta los dasicos 
ammales de peluche que son, sin duda, de lo 
mas atractivo para los sinformaticoss mas jo- 
vencitos. 

Este tipo de robots tiene ademas una ma¬ 
yor autonomia que los brazos. Por un lado 
pueden unirse al ordenador por medio de un 
cable, pero tambien se pueden utilizar rayos 
infrarrojos para dirigirlos, aunque en este ca¬ 
so necesitaremos un espacio diarano entre uno 
y otro. 

En cuanto a sus posibilidades podemos de- 
cir que son infinites. Son capaces de realizar 
increibles dibujos y adaptcmdoles celulas y sen¬ 
sores que le ayuden a orientarse, evitar obs- 
taculos o cualquier otra cosa que se nos ocu- 
rra. Podemos desarrollar toda nuestra expe¬ 
rience en ingenieria y programacion y con¬ 
seguir adaptor a estos robots de suelo cual- 
quiera de las novedades que podamos ima- 
ginar. 

Y pasamos ya a los que por su aspecto y fun¬ 
cionamiento son mas semejantes a los huma- 
nos: los androides. Son, quiza, los mas suge- 
rentes pero no por ello los mas avanzados tec- 
nicamente. Antes de entrar de lleno en ellos, 
vamos a hacer una advertencia, quiza un tanto 
superflua, pero que es necesaria para impe- 
dir que nuestro imaginacion se dispare. 

Al hablar de este tipo de robots todos nues¬ 
tros recuerdos y experiences se centran en los 
ejemplos que nos ha mostrado el cine. Todos 
conocemos a Roddy, a C3PO y R2D2 y algu- 
na que otra estrella del mornento. Pero todos 
ellos son produefos de la imaginacion litera- 
ria, la ciencia no va por ese camino. De he- 
cho tendran que pasar bastantes anos para 
conseguir prototipos semejantes. 


Y ademas parece que su aspecto fisico no 
interesa en demasia a los cientificos que dan 
mas importance a la especializacion y funcio- 
nalidad. 

Dicho esto, continuemos. Los menos sofisti- 
cados son los llamados «maniquies», una 
serie que infenta imitar la apariencia humana 
o animal con la mayor perfection posible. Sus 
movimientos son toscos, limitados y su eapa- 
cidad de memoria minima. Son tipicos en los 
videos, escaparates y en alguna que otra ma- 
nifestacion a modo de reclame. Por todo ello 
el interes que tienen para nosotros es tambien 
bastante anecdotico y superfluo. 

^Recuerda la pelicula «Almas de 
metal»? Es algo que, aunque no sea de vi¬ 
tal importancia, al menos puede resultar muy 
divertido. Se trata de una serie de robots con 
una perfecta apariencia de estar dotados de 
vida que les hacia vivir su aventura favorita 
a cualquier humano que pudiera costedrsela. 

jPuede imaginarse a si mismo luchando con 
un «marcianlto» de tres dimensiones en lu¬ 
gar de enfrentarseie en la pontalia de su mo¬ 
nitor? Con un poco de tiempo, paciencia y per- 
fecionamiento podremos conseguii hacerlo 
realidad. 

Una aplicacion mucho mas interesante de 
los tandroides* es la que consiste en «relle- 
nerles» de microprocesadores, conectados 
a su vez con uno central, que imiten los orga- 
nos vitales de un humano. De esta manera 
pueden experimentarse situaciones limite rea¬ 
les, sin el menor peligro, que nos permitan de¬ 
sarrollar metodos capaces de evitarlos o co- 
rregirlos. 

Los mas conocidos son los llamados «do- 
mis. Se trata de un grupo de androides de 
diferentes famanos y pesos que trabajan den- 
tro de los automoviles. Se puede decir que son 
los «inventore$» del cinturon de seguridad, 
cabezales, colchdn de aire... Nos explicamos, 
los domis son los encargados de demostrar las 
consecuencias que los accidentes de automo- 
vil pueden acarrearle al ser humano de ver- 
dad. 

Acompanandoles estdn sus primes herma- 
nos, que trabajan en la Facultad. Si los domis 
han sufrido toda serie de traumas imaginables, 
sus familiares se han visto afectados por pa- 
ros cardiacos, asfixias, tumoraciones y cuan- 
tos etceteras se le puedan ocurrir. 

Despues de quitarnos el sombrero ante ellos, 
seamos practicos. jQue pasa con los androi¬ 
des y los ordenadores caseros? 

Pues poco mas o menos lo mismo que ocu- 
rriria en el caso de los brazos de robot. Por 
ahora estamos mucho mas cerca del juego 
educative que de la utilidad realmente prac¬ 
tice. 

Dentro de los que tenemos en casa, pode¬ 
mos hacer dos grandes grupos: los de jugue- 
te y los domesficos. La verdad es que su apa- 
riencia no difiere mucho ya que el cine influ- 
ye en gran manera sobre los gustos de las per¬ 
sonas y R2D2 ha tenido demasiado «gan- 
cho». 
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Los androides de juguete se han desarrolla 
do sobre todo en Japan, como no. Su aparien- 
cia es cada dia mas benigna y amistosa, aun- 
que todavia recuerdan en parte sus origenes 
belicosos, cuando iban cargados de armas es- 
paciales, pistolas de rayos laser o de cualquier 
otro tipa (simuladas claro). 

Sus limitaciones vienen dadas por las del mi- 
croprocesador que llevan incorporado y que 
permite programarles para que ejecuten y re- 
cuerden una serie de rnovimientos e incluso al- 
guna que atra frase que podran intercambiar 
con los humanos, una vez reconozcan su voz. 

En cuanto a los robots domesticos se puede 
decir que todos ellos se mueven sobre s( mis- 
mas, o sea, son autonomas. Se controlan por 
un ordenador que generaimente llevan en su 
interior, o bien mediante infrarrojos que lo 
unen con un micro de mesa. 

Pero realmente, ^que es lo que pueden ha- 
cerf Aparentemente multitud de tareas case- 
ras pueden ser realizadas por estos androides. 
Parece que se acabo el barrer, poner la me¬ 
sa, ordenar un armario. La situacion, sin em¬ 


bargo, es muy diferente. La tecnologta con la 
que estdn fabricados no esta lo sufientemen- 
te desarroliada como para que sean unos per 
fectos ayudantes del ama de casa. De momen¬ 
ta nos conformaremos con aprender roboti- 
ca, electronica y mecdnica con ellos, asi co¬ 
mo idear un programa que podamos «me* 
ter» en su memorio y conseguir perfeccionar 
o incluso ampliar las primitivas tareas de las 
que estan dotados. 

Pero lo mas atractivo de estos robots es que, 
al igual que ocurria con los brazos, con un pro- 
totipo, nuestro ordenador y nuestra imagina¬ 
tion, podemos aprender, investigar, inventor 
y desarrollar cualquier idea por peregrina que 
nos parezca. Tal vez al principio los resulta- 
dos no sean todo lo impresionantes que de- 
seemos pero de lo que no cabe duda alguna 
es que nuestros conocimientos aumentaran. 
jPor que no se anima y fabrica un prototipo? 

A estas alturas no sabemos si estamos en 
condiciones de responder a aquella pregun- 
ta que hicimos sobre la naturaleza de los ro¬ 
bots, pero a cambio haremos una reflexion 
«filosofica». 


Hay quien ve en los robots una amenaza. 
Bueno, pues no lo son. 

En principio las posibilidades del robot son 
todavia limitadas y no pueden considerate en 
ningun momenta como peligrosas. 

Sin embargo, si podemos tener en ellos una 
gran ayuda ya que se «encargan» de todas las 
tareas pesadas y rutinarias, dejando a los hu¬ 
manos las labores creativas y, por supuesto, 
una mayor cantidad de tiempo libre. 

En un futuro el robot cumplird una labor $e- 
mejante a la del antiguo esdavo, pero evitan- 
do el problema moral que la esclavitud signi- 
fica en este caso. 

El empleo de este concepto es de muy du- 
dosa aplicacion al referirnos al irabajo que 
realize un robot. 

Si le parece que esta premisa es lo suficien- 
temente logica piense por un momenta que he- 
mos llegado ai futuro. 

Los robots serdn lo suficientemente inteligen- 
tes como para descubrir que el papel de los 
humanos es mas apasionante que el suyo. 

Y entonces... 
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Black jack 


Los juegos de cartas por ordenador / al parecer, constituyen un tema 
favorite de los programadores y nuestros lectores no son una exception. 
Una y otra vez llegan a nuestra redaction multitud de ellos, unos muy 
buenos, otros menos buenos, pero todos bienvenidos. 

Hemos seleccionado uno de ellos, que «computariza» el famoso juego 
ingles del «Black Jack», conocido en Espana como 21 y, pariente cercano 

de las «siete y media». 

El autor del programa ya se toma la molestia, unas tineas mas abajo, de 
describir el juego con detalle, a si que no lo repetire aqui. Solo quisiera 
llamar la atencion de los lectores acerca de la precision con que estan 
realizados los graficos de las caras, asf como la original y, acertada, 
disposicion de las mismas en la pantalla. 

Mas de una vez hemos dicho en la revista que, por la magia del ingenio, 
el byte se convierte en padre y madre del Arte. Black Jack es una 

prueba de ello. 

Antonio Fernando Aguilera Romera 


te programa es 
una recreacion del tradicional juego 
del Black Jack, tambien conocido co 
mo veintiuno. En este caso se juega 
a doce parfidas, tr las cuales se 
muestra una pantalla con las maxi- 
mas puntuaciones, pudiendose, en 
caso de entrar entre las mejores pun 
tuaciones, introducir previamente el 
nombre del jugador. El objetivo del 
juego es alcanzar los 21 puntos o, en 
su defecto, una mayor puntuacion 
que la banco, que en este caso es el 
ordenador. Este juego permite las ju 
gadas habituales, que son las si 
gyientes: 

— Doblar la apuesta, lo que se 
puede hacer cuando nuestra puntua¬ 
cion es de 9, 10 6 11 puntos. 

— Asegurarse, es decir, apostar 
la mitad de lo que se lleva apostado 
a la banco. Si esta obtiene un black 
Jack (un as y una carta de valor 
diez), el jugador gana esa caritidad. 


— Abrir el juego en dos ramas in 
dependientes. Esto solo se puede ha¬ 
cer cuando las 2 primeras cartas del 
jugador son del mismo valor y este 
no ha doblado la apuesta. Existe una 
jugada que supera a todas las de- 


mas: esta es el Black Jack, que se ob 
tiene cuando se tiene un as y una car¬ 
ta de valor diez (10, J, Q, K). Caso 
de no alcanzarse ni Black Jack ni 21 
por ninguna de las 2 partes, ganara 
el que mas se acerque a 21. 
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Estructura I 

10-240 

Inicializacion 1 

250-310 

Presentacion 

350-1440 

Bude principal 

360-650 

Baraja y pide apuesta 

660-1 110 

Juega el jugador 

1120-1370 

Juega el ordenador 

1380-1440 

Fin del bucle principal 

1450-1470 

Pregunfa si se vuelve a 
jugar 

1480-1910 

Resultado de la partida 

1920-3170 

Dibuia la carta 

3180-3270 

Dibuja el marco y el fort- 
do de la carta 

3280 3330 

Identificador del naipe 

3340-3390 

Imprime el mensaje 

3400-3460 

Extrae una carta de! 
mazo 

3470-3520 

Espera que se expulse 
una tecla 

3530-3580 

Subrutinas auxiliares 

3590 3940 

Maximas puntuaciones 

3950-4040 

Escribe ventana de 
puntuacion 



rec y, 
rec$() 


e$ 


bjl, bj2 

dg 

d,e 


bdna 

k 


Cadena con los numeros de 
las cartas 

Cadena con los palos de las 
cartas 

Matriz con la puntuacion y 
nombre (mdximas 
puntuaciones) 

Cadena con la baraja 
Puntuacion del l.° camino 
Puntuacion del 2,° camino 
Puntos de la banca 
Indicadores del Black Jack en 
los respectivos caminos 
Dinero acumulado 
Coordenadas de impresion 
de la carta 
Cantidad del seguro 
apuesta 

Bandera de fin de juego del 
jugador 

Bandera de apuesta doblada 
Valor de la l. a carta del 
ordenador 

Valor de la l.° carta del 
jugador 

Bandera de dinero acabado 

Dinero ganado (o perdido) 

en una partida 

Dinero ganado en todas las 

partidas jugadas 

Carta del maze 

Palo de la carta 


Nota.—Para ver correctamente el listado, 
ejeevtar en modo directo: SYMBOL AFTER 0: 
LIST. 


10 REM **t 

**JW ********** MIHliriUM 
20 REM * BLACK JACK 

* 

30 REM **************************** 
** 

40 RFM * 

* 

■50 REM * 

* 

60 REM * 

* 

70 FEM tt***11*ttt***1t**t****tt*** 
tit 

PO SyNfiOL AFTER 0 
90 MODE 1 

100 REM ********#***********M#**** 

110 REM * INICIAL I7-ACI0N 

* 

120 REM *************************** 
*** 

130 INK 0,10:INK 1,26:INK 2,0:INK 3 
. * 

140 BORDER 10:PAPER 0:PEM 1:CLG 
ISO SYMBOL 163,3°, 101,37,37, 7~>, 37, 1 
1°, 0 

160 SYMBOL 255,230,236,136,232,0,2S 
4,0,0 

170 SYMBOL 254,248,216,216,240,0,24 

0 , 0,0 

100 SYMBOL 253,0,0,127,0,0,127,0,0 
190 SYMBOL 252,192,224,176,152,152, 
176,224,192 

200 at ; 'A234567Q9*.]QK" : b*»£HR* (223) 
+CHRt (2271 +CHR*< 226) +C.HR* (229) 

210 RANDOMIZE TIME:c«=STRINB*<40,12 
) 

220 F*=CHRt(207)+CHR*(200>+CHR* <201 
)+CHR*(200)+CHR*(201>+CHR*(200)+CHR 
t(207) :f1*=CHR* < 207)+CHP*(201)+-CHP* 
(200) +CHR* <201 ) +CHR* (200) +CHR*(201) 
+CHR*(207) 

230 at-"":FOR i=l TO 52:a* ot+CHR*( 
i):NEXT 1 

240 DIM rec(6),rent(6):FOR i 1 TO 6 
:rsc(I>-80000+(60000-(i+1)*5000):r« 
c* < i)-"AMSTRAD":NEXT 
250 REM *************************** 
* 

260 REM * PANTALLA DE PRESENTATION 
* 

270 REM *************************** 
* 

200 ORIGIN 320,200:FOR pssfO TO 200 
STEP 10: PLOT pw ,0,2: DRAW 0,200-fix:D 
RAW -p s , O: DRAW 0, - (200-px ) : DRAW p>: , 
0:NEXT:0RIGIN 0,0 

2°0 a 3 l:d=l:e 10:b“3:c 1:GOSUB 1930 
-.SOUND 1,INT<RND*IOO+100),25:d 15:“ 
=25: c=2: b»3: GOBUB l°3Cis SOUND l, INI' 
RND*300+100),25:d 1:h=2:c=3:GOSUB 1 
°30:SOUND 1,INT(PMD*500+100).25:d 1 
5 :r 1 0: c=4: ti = 2: OOSUF 1 1930: SOUND 1,1 
NT <RND*700H00) , 25 

300 " BLACK JACK ": FOR 1 = 1 

TO 17: PAPER 2-.PEN t + '2 AND 1/2 INT' 

I/2)) :LOCATE 1 + 11,13:PRI NT MIDtfxt, 
i,l);:FOR ret 1 TO 5:NEXT rat:NEXT 
i 

■+1G FOR rs) 1 TO 2000: NEXT 

320 REM - — 

330 PEM -ACINI COMIENZA BUCLE PBINCI 
PAL- 

340 REM - — • ---- 

350 dg=30Q00: ): CuTOR mtno l TO 

12 

360 REM *************************** 
* 

3°0 REM * BARAJA Y RIDE APUESTA 
* 

3,00 PEM *************************** 

* 

390 qp=INT(RND*100+35) 

400 MODE 1:PAPER 0:PEN 1:CLS:d*="BA 
RAJANDO":GOSUB 3370 
410 INK 3,24 

420 FOR I 1 TO qp:>:-INT <RND*52+1) : y 
■INT <RND*52+I):xt=MID*<»*,x,1>:MID* 



(a*,M.1) MID*(e*,y,1):MIDt'e*,y,1)- 
wt:SOUND 1,0,l:NExr i 

430 h=0:1 0:n=0:D-0:i 0:q=0:r=0:s O 

:t-0 

440 CLS 

450 man*-" ENTRE 3U APUESTA ":LQC 
ATE 1,12:RARER O:PRINT ct:PAPER 2:P 
EM 1 : LOCATE 11, 12: FOR 1 l TO LEN Orie¬ 
nt): PRINT MID* (man*, i , 1 );,: SOUND 129 
,100,4:WHILE 5Q<1)>127:WEND: NEXT i: 
LOCATE 11,11:PRINT STRING*(20,32):L 
OCATE 11,13:PRINT STRING*(20,32) 

460 LOCATE 11,10:PRINT STRING*(20,3 
2):LOCATE 11,14:PRINT STRIMG*(20,32 
) 

470 PLOT 104,200,3:DRAWR 270,0 

4G0 DRAWR 0,30:DRAWR -272,0:DRAWR O 

,-30 

490 PLOT 172,108,1:DRAWR 294,0 

500 DRAWR 0,54:DRAWR -294,0:DRAWR O 

,-54 

510 PLOT 160,176,3:DPAWR 310,0:DRAW 
R 0,70:DRAWR -310,0:DRAWR 0,-70 
520 IF dg>9999 THEN mar: ap= 10000 ELS 
E maxap^dg 

530 man2*-‘"ENTBE 200 Y" +STR* (max ap ) 

f " pTA9:." : <nan2 s! LEN (ntLn2*) : IF 

(mar,2 MOD 2)«0 THEN men2*' " " Hnon2* 
540 PAPER 0:PEN 1:LOCATE 20-INT(men 
2/2),22:FOR i = l TO LEN<m«n2»>:PRINT 
~MID*(m«n2*,i,1);:SOUND 1,200.4:WHI 
LE SQ(1)>127:SOUND 128,100,1:WEND:N 
EXT i:PRINT STRING*(6,0)) 

550 h=0:tl "":>:* "":WHILE LEN(m*)< 6 
AND t*OCHR*<13) 

560 1.* UPPER* (INKEY*): IF t*="" THEN 
560 

570 IF ASC(Ft) 13 OR (ASC(t*)>47 AN 
D ASC < t*)<5B) THEN x*»«*+t*:PRINT t 
tj:SOUND 1,20+VAL(Ft)* 10,3:WHILE SO 
(3)>127:WEND ELSE IF ASC(tt) 127 AN 
D LEN(x*>>0 THEN lo LEN (>:*): 1 o»i o -1 
:>:* MiB<x*, 1, lo) SPRINT CHR*(B>;CHR 
’*( 16' ; "+EHP*'G) s El 5E nOTfl 560 

500 WCNO 
H°0 h=VAL(X*> 

600 man3*="P0R FAVOR, EMTPC 200 Y" + 
STR* (mas: ap) +" PTAS" : mt?n3=LEN Ciirem3* > 

J IF (man3 MOD 2)=>1 THEN m«n3*=men3* 
+ ". " 

610 IF h<200 OR h>111 a>1 ap THEN LOCATE, 
1,35SPRINT CPC(39)j:LOCATE 21-INTt 
LEN <men3*> /2) , 25:PRINT insnSt: FOP I 
1 TO 2000: NE X T JsLOCATE l,2Ss!PRINT 
5PC (39) ;: LOCATE 1,22-.PRINT ct:GOTO 
540 

620 LOCATE 1,22:PRINT ctsdin* "APUE 
STA TOTAL:"+RJGHT*(STR*<h),LEN(STR* 
(h))-lit" PTAS":IF (LENidin*)/2><>1 
NT(LEN(din*)/2> THEN d1n*“din*+"." 
630 LOCATE (20-LEN <din*>/2)+1,22:PE 
N 2: PRINT' dan* 

640 PLOT (20- (LEN(din*)/2))*16-0,39 
9-22*16- 4, l s DRAWR LENidin*) *16+12,0 
; DRAWR 0,20:DRAWR -(LEN(dan*)* 16+12 
),O:DRAWR 0,-20 

650 FOR I 1 TO 2000:NEXT I:RARER O: 
CLS:INK 3,6 

460 REM *************************** 
* 

670 REM * JUEGA EL JUGADOR 

* 

600 PEM *************************** 
* 

6°0 WINDOW |l,11,30,IjStPAPER 41,2: 
FOR i+1 TO B:LOCATE #1,1,IsPRINT #1 
,CHR*(11):STRING*(20,32);;NEXT 


Antonia Farnando 
Aguilera Rainer a 
GRANADA 
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■700 re j 1 *■"" " :faj1=0:bJ2=0:r 

“0: f 1 =0: WHILE rOl AND fl 0 
710 n n+1 

720 IF n>2 THEN SOTO 910 
730 IF n=l THEN o=*c+1: SOSUB 3430:00 
SUB 3450: t"a: d*l: e=34: b = l: GQSUB 321 
O: PAPER 1 : PEN 2:LOCATE 34,2:PRINT S 
TRINE*(7,207):FOR i - 3 TO 9 STEP 2:L 
QCATF 34,i:PRINT f*:LOCATE 34,i+l:P 
PINT fI*:NEXT i:LOCATE 34,1Q:PRINT 
STRING*(7,207):GOSUB 3220:GOSUB 350 
0:G0TQ 750 

740 o=a+t:d=l.:e=l: GOSUB 343O:G0SUB 

1950:GOSUB 3450:t«t+a:v a 

750 o=a+l:d=12:e=n*2-l:GOSUB 3430:G 

OSUB 1950:GOSUB 3450:a=s+a 

760 GOSUB 3900 

770 IF c=2 then u=a 

790 IF n=l THEN 710 

790 IF a 11 AND <u 1 OR m= 10) THEN 
bjl“l:fl=l:GOSUB 3980:GQT0 1110 
BOO IF V=1 THEN d*=CHR*(174)+"DESEA 
ASEGURARSE?":GOSUB 3370:GOSUB 3500 
:PAPER 0:1 ORATE 1,23:PRINT C*:ir x* 
="S“ THEN q=INT(h/2):LOCATE 1,25:PR 
INI "SEGLIRO DE";Q;"PTAS":GOSUB 39B0 
-.FOR 1 = 1 TO 1500: NEXT: LOCATE l,25:P 
PINT c *; 

010 IF s>8 AND s<12 THEN d*=CHR*(17 
4' + "DESEA DOBLAR LA APLIESTA?" : GOSUB 
3370:GOSUB 3500:PAPER O:LOCATE 1,2 
3: PRINT c*: IF x*="R" THEN r -l:h=2*h 
:LOCATE 1,25:PRINT "APUEPTA DOBLADA 
A"jhj"PTAS":GOSUB 3980:FOR i 1 TO 
1500:NEXT i:LOCATE 1,25:PRINT c*; 

R70 IF «(«tu OR r- 1 THEN rcj2*="N" 

:GOTO 910 

830 d*=CHR* (174) +"DESEA ABRIRC-E7":G 
noup 3370:GOSUB 3500:PAPER O:LOFATF 
1,23:PRINT e*i 

840 IF >:*="N" THEN rcj2* "M": GOTO « 

10 

850 d = 12:8=34:GOSUB 3430:G0SUB 1950 

-.GOSUB 3450:p=a:GOSUB 3980 

860 o=o+l:8=3:GOSUB 3430:GOSUB 1950 

-.GOSUB 3450:* u + a: GOSUB 3780 

970 IF 6=11 AND <u«l OR u 10) THEN 

fa jl = l 

BBO 0=0+ l:e»32: GOSUB 3430:G0SIJB 195 
0:GOSUB 3450:p=p+a:GOSUB 3980 
890 IF p=H AND (a=l OP * 10) THEN 
bj2 1 

900 GQSUB 3980 

910 IF *>21 THEN rejl*="N" 

920 IF faj1=1 THEN rcjl*="N" 

930 IF rc jI*="N" OR h j 1 = 1 THEN 1000 
940 d*=CHRi(174)+"DESEA MAS CARTAS? 
":GOSUB 3370:IF p THEN LOCATE 3,12: 
PEN 1:PRINT "*":GOSUB 3560 
950 GOSUB 3500:LOCATE 3,12:PAPER 0: 
PRINT " ":GQSUB 3560 
960 rc j1®=x * 

970 IF rcjl*="N" THEN GOTO 1000 
980 o o+l:d=12:e=n*2+l:G0SUB 3430:G 
QSUB 1950:GOSUB 3450:*=*+«:GOSUB 39 
80 

990 ”””””” 

1000 IF p>21 THEN rcj2* = "N" 

1010 IF bj2«l THEN rcj2*="N" 

1020 IF rcj2*="N" OR bj2=l THEN 109 
O 

1030 d*=CHR*(174)+"DESEA MAS CARTAS 
GOSUB 3370: IF pi THEN LOCATE 38,1 
2:PEN 1:PAPER 0:PRINT "*":GQSUB 357 
0 

1040 GOSUB 3500:PAPER 0:LOCATE 38,1 
2: PRINT " GOSUB 3570 
1050 rcj2*=x® 

1060 IF rej2*="N" THEN GOTO 1090 
1070 orci+l:d-+12:8=34-n*2:GQSUB 3430 
:GOSUB 1950:GOSUB 3450:p=p+a:GQSUB 
3980 

1080 IF p >21 THEN rcj2*="N" 

1090 IF bjl = l AND bj2=I THEN -fl^i 
1100 IF rcJl*="N" AND rcj2*="N" THE 

N fl-I 
1110 MEND 

1120 REM ***********#*f************ 
t 


1130 REM * JUEGA EL QRDENADOR 
* 

1140 REM ttt****f**t«********f*tt*t 
* 

1150 FOR t«2C) TO 35 STEP 5: SOUND 1 
i,l:NEXT i: w=n 

1160 LOCATE 1,23:PRINT c*:PAPER # 1 , 
0:LOCATE #I,l,8:PRINT #1,STRING*(8, 
10 ) 

1170 »=34:d l:aa q: o=l:GOSUB 3430:G 
OSUB I 950:ci=aa 

1180 IF + =ll AND (v=l OR v=10) THEN 
w» 1:GOTO 1380 

1190 IF bjl«l AMD p 0 THEN 13B0 
1200 IF bj1 = I AND faj2=I THEN 1380 
1210 IF s>21 AND <p»0 OR p>21 OR bj 
2 1) THEN 1380 

1220 IF t>* AND (p 0 OR p>21 OR bj2 
1) THEN 1380 

1230 If +.>16 AND (<*>+ AND s-,'20 AND 
(p=0 OR p>21)) OR (p>t AND p<;20) ) 
THEN nol-RND*7:no2»PND*10:IF no2<no 



1 THEN 138U 

1240 IF- p >21 AND s = 21 THEN 1380 
1250 IF s>21 AND p=21 THEN 1380 
1260 IF +>p AND (*>21 OR bjl 1) THE 
N 1380 

1270 IF ((t=p AND p>0) OR + = s) AND 
t>Il THEN nol RND*t: nc.2=RND*25: IF ri 
o21nol THEN 1380 
1280 n 1 

1290 Q=o+l:«=n*2+1:GOSUB 3430:GOSUB 
1950:GOSUB 3450:+ t+a 
1300 IF t>* AND bj1=0 THEN 1380 
1310 IF t>p AND faj2=0 AND p>0 AND * 
>21 THEN 1300 

1320 IF t>16 AND * 21 THEN nol RND* 
10: no2 RND*35: IF ncn2>nol THEN 1380 
1330 IF +>16 AND ((*>+ AND s<20) OP 
<p>+ AND p<20) ) AND Cp«=0 OR p>21) 
THEN nol-=RND*7:no2=RND*10: IF no2>no 
1 THEN 1380 

1340 IF t s AND s>16 AND <p 0 OR p> 
21 OR +112-1) THEN 1380: ' IF t=s AND 
s>16 THEN 1350 

1350 IF t=p AND p >16 THEM 1380:’IF 
t=p AND p>16 AND (*>21 OR bjl»l> TH 
EN 700 

1360 IF t>21 THEN 1390 
1370 n=n+l:GOTO 1290 

1390 FOR i=150 TO 100 STEP -1:SOUND 
1,1,5:NEXT i 
1390 GOSUB 1510 

1400 IF bdna=l THEN bdna*0:GOTO 145 
0 

1410 NEXT mano 

1420 REM - 

1430 REM -AQUI TERMINA BUCLE PR INCI 
PAL- 

1440 REM- 

1450 GOSUB 3620 

1460 CLS:INK 0,10:d*=CHR*(174)+"CON 
TINUAMOS .1UGAND07": GOSUB 3370: GOSUB 
3500: IF x*;‘"N" THEN CLS: SYMBOL AFT 
ER 0:END 

1470 LOCATE 1,10:PAPER 0:PRINT c*:C 
US:GOTO 350 


1490 REM ******** ****************** 
* 

1490 REM * RESULTADO DE LA PART I DA 

* 

1500 REM «tl**tt*|*ni«*Mltt<$|tu 

* 

1510 PEN 2:CLS:PRINT CHR*(24);" 
RESULTADO DE LA PARTIDA- 
CHR*(24); 

1520 IF w 1 THEN p* " BLACK JACK" E 
LSE p*=STR*(t)+" RLINTOS" 

1530 k* "MI JUGADA HA SIDO"+p*:LOCA 
TE 1,3:PRINT x* 

1540 JUGADA HA SI DO" 

1550 IF p THEN 1580 
1560 IF bjl O THEN x *=:•: *+STR* (■ ) +" 
PLINTOS" ELSE x*=x*+" BLACK JACK" 
1570 IF NOT p THEN LOCATE 1,5:PRINT 
x *:GOTO 1630 

1580 LOCATE 1,5:PRINT .. 

1590 iF faj1=1 THEN vwt-” BLACK JACK 
" ELSE vw# STR*(s)+" RIJNTQS" 

1600 x*="PRIMER CAMINO "+CHR*<253)* 
CHR# (252)+vw*: LOCATE 1,7: PR I NT y.f 
1610 IF b j 2= 1 THEN uvt " BLACK JACK 
" ELSE wv*»STR*(p)+" PIJNTDS" 

1620 x *="SCGUNDO CAMINO "+CHR*(253) 
+CHP*( 252 )+nv«: LOCATE 1,8: PR I NT y.t 
1630 1: =0: IF q n THEN 1650 
1640 PRINT:IF w THEN PRINT "GANA EL 
SEGURO DC":q;"PTAS":k k+2*q ELSE P 
PINT "PIERDE EL SEGIJRG DE" ; q ; "PTAS" 

: k k q 

1650 x a:y»0 
1660 PRINT 

1670 IF p >0 AND y=0 THEN a* " 1"+CHR 
*(255)+" CAMINO:":PRINT **; 

1690 IF pX> AMD y 1 THEN q*="2"+CHP 

*(254)+" CAMINO:":PRINT q*i 

1690 IF X >21 THEN PRINT "PIEPDE AL 

PASAR DE 21":+ L-h:GOTO 1770 

1700 IF w AND ((bjl 1 AND y=0) OR ( 

bj2=l AND y D) THEN PRINT "EMPATAD 

OS":GOTO 1770 

1710 IF (bj1=1 AND y=0) OR (bj2»l A 
ND y=l) AND NOT w THEN PRINT "GANA 
CON BLACK JACK" :K K+1.5*h:G0T0 1770 
1720 IF W=1 AND <(bjl=0 AND y-0) OR 
(bj2=0 AND y 1)> THEN PRINT "PIERD 
E CON MI BLACK JACK":k»k-h:GOTO 177 
0 

1730 IF +>21 THEN PRINT "GANA AL PA 

SARME DE 21":k=k+h:GOTO 1770 

1740 IF x>+ THEN PRINT "GANA AL SUP 

ERARME":k k+h:GOTO 1770 

1750 IF t>x THEN PRINT "GANG AL SUP 

ERAPLE":k=k-h:GOTO 1770 

1760 PRINT "EMPATADOS" 

1770 IF y=0 AND p THEN x=p:y-l:GOT 
0 1680 

1780 PRINTsPRINT "EN ESTA MANO "; 
1790 k INT(k) 

1800 IF k=0 THEN PRINT "QUEDAMQS EM 
PAT ADOS":GOTO 1830 

1310 IF k >0 THEN PRINT "GANA"; k J"PT 
AS":GOTO 1830 

1820 PRINT "PIEPDE"iABS(k);"PTAS" 
1830 m=INT(m+k> 

1840 PRINT:PRINT "TOTAL:"; 

1850 IF m=0 THEN PRINT "COMO AL PRI 
NCIPIO" ELSE IF m>0 THEN PRINT m; "P 
TAS GANADAS"ELSE PRINT ABS(m)j"PTAS 
PERDIDAS" 
i860 dg^dg+k 

1870 PRINT:PRINT "TIENE";dg;"PTAS" 
1880 IF dg<200 THEN PRINT:PRINT "YA 
NO PUEDf; SEGUIR APQSTANDO" : bdna=l 
1890 WHILE INKEY*0"":WEND: INK 1,0, 
26:LOCATE 13,25:PEN 1:PRINT "PULSE 
UNA TECLA":WHILE INKEY*="":WEND:PAP 
ER O 

1900 INK 1,26 
1910 RETURN 

1920 REM ************(************* 

* 

1930 REM * DIBUJA LA CARTA 

* 

1940 REM ************************** 
t 
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19S0 GOSUB 3210 

1940 ON i GOSUB 1970,2440,2490,2520 
, 2550,2500,2410,2440,2*70,2700,2020 
, 2940,3060:RETURN 

1970 DM c GCtSUB 1900,2100,2220,2340 
:RETURN 

1900 RESTORE 2050 
1990 FOP n--3 TO 7 

2000 FOR 1 = 1 TO 5: FOR nr}«l TO 9: PEA 
n n (nn) :NEXT nn: SYMFiOL n<l),n(2),n( 
3® <4> , n (5) ,fi (6>, n (7) ,ri (R> ,n <°) : NE 
XT i 

2010 LOCATE «+l,d+nv:PAPER 1:PEN b: 
PRINT " 

2020 NEXT 
2030 GOSUB 3310 
2040 RETURN 

2050 DATA 33.0,0,0,0,0,0,1,3,35,0,0 
,0,0,0,240,252,254,39,0,0,0,0,0,0,0 
] 0,30,0,0,0,0,0,31,63, 127,39,0,0,0, 
0,0,0, 120, 192 

2060 DATA 33,7,15,15,31,31,63,63,63 
,35,255,255,255,255,255,255,255,255 
,37,0,129,195,231,255,255,255,255,3 
0,255,255,255.255,255,255,255,255,3 
9, 224,240,240,240,248,252,252,252 
2070 DATA 33,63,63,63,31,31,15,15,7 
,35,255,255,255,255,255,255, 255, 255 
,37,255,255,255,255,255,256.255,255 
, 38,255,255,255,255, 255,255,205,255 
,39,252,252,252,248, 240,240,240,224 
2080 DATA 33,3,1,0,0,0,0,0,0,35,255 
,255,255,129,63,31,15,7,37,255,255, 

255.255.255.255.255.255.30.255.255, 
255,254,252,240,240,224,39,192, 128, 
0,0,0,0,0,0 

2090 DATA 33,0,0,0,0,0,0,0,0,35,3,1 

,0,0,0,0,0,0,37.255,255,205,126,60, 

24,0,0,30,192,128,0,0,0,0,0,0,3?,0, 

0,0,0,0,0,0,0 

2100 RESTORE 2170 

2110 FOR nv 3 TO 7 

2120 FOP 1 1 TO 5:FOR nn-1 TO 9:REA 

D n£nnl : NEXT nn: SYMBOL n (1 > , n (2) , n ( 
3>,n(4>,n(S>,n(6),n(7>,n(B>,n(9):NE 
XT i 

2130 LOCATE e +1,d+nv:PARFR 1:PEN b: 
PRINT "'r/.Si’" 

2140 NEXT nv 
2150 GOSUB 3310 
2160 RETURN 

2170 DATA 33,0,0,0.0,0,0,0,0,35,0,0 
,0,0,0,0,0,0,37,24,24,60,60,126,126 
,255,255,38,0,0,0,0,0,0,0,0,39,0,0, 
0,0,0,0,6,0 

2180 DATA 33,0,0,0,0,0,0,0,0,35,1,1 
,3.3,7,7,15,15,37,255,255,255,255,2 
55,255,255,255,38,12B,120,192,192,2 
24.224,240,240,39,0,0,0,0,0,0,0,0 
2190 DATA 33,0,0,6,0,0,0,0,0,35,31, 

31.63.127.127.63.31.31.33.255.255.2 

55.255, 255,255,255,255,38,240,243,2 
52,254,254,252,248,248,39,0,0,0,0,0 
,0,0,0 

2200 DATA 33,0,0,0,0,0,0,0,0,35,15, 

15.7.7.3.3.1.1.37.255.255.255.255.2 
55,255,255,255,38,240,240,224,224, l 
92. 192, 128, 128,39,0,0,0,0,0,0,0,0 
2210 DATA 33,0,0,0,6,0,0,0,0,35,0,0 
,0,0,0,0,0,0,37,255,255,126,126,60, 
60,24,24,30,0,0,0,0,0,0,0,0,39,0,0, 
0,0,0,0,0,0 

2220 RESTORE 2290 
2230 FOR nv-3 TO 7 

2240 FOP i-1 TO 5:FOR nn-1 TO 9 : reA 
t> n Innl : NEXT nn: SYMBOL nm,n(2),n< 
3! ,n <41,n (5),n (6), n f7),n <8) ,n <9) j NE 
XT i 

2250 LOCATE e +1,d+nv:PAPER 1:RFN b: 
PRINT "'(tv.V 
2260 NEXT n= 

2770 G08UB 33in 
2290 RETURN 

2290 DATA 33,0,0,0,0,0,0,0,0,35,0,1 
,7,15,31,31,63,63,37, 126,255,255,20 
0, 255,255,255,205,38,0,120,224,240, 

240,240,252,252,39,O,0,0,0,0,0,0,n 

2300 DATA 33,0,0,0,0,0,1,3,7,35,63, 

63,31,15,7,251,253,254,37,255,255,2 


55.255.255.255.255.255.38.252.252.2 
48,240,224,223,191,127,39,0,0,0,0,0 
,128,192,224 

2310 DATA 33,15,31,31,63,63,63,63,6 

3.35.255.255.255.255.250.255.255.25 

5.37.126.255.255.255.255.255.255.25 
0,38,255,255,255,255,255,255,255,25 
5,39,240,248,240,252,252,252,252, 25 
2 

2320 DATA 33,31,31,15,7,3,1,0,0,35, 
255,255,255,255,254,752,240,0,37,20 
5,219,153,24,24,60,60,60,38,255,255 
,255,255,127,63,31,0,39,240,248,240 
,224,192,128,0,0 

2330 DATA 33,0,0,0,0,0,0,0,0,35,0,0 

,0.0,3,15,112,0,37,60,126.126,126,2 

55,129,0,0,38,0,0,0,0,192,240,14,0, 

39,0,0,0,0,0,0,0,0 

2340 RESTORE 2410 

2350 FOR nv 3 TO 7 

2360 FOR i-1 TO 5:FOR nh-1 TO 9:REA 
D n (nn 1! NEXT nn: SYMBOL, n(l),n(2),n( 
7>,n<4),n<5>,n<6>,nCM,n(B>,n(9!:NE 
XT i 

2370 LOCATE e+1,d+nv:PAPER 1:PEN b: 
PRINT 

2380 NEXT nv 
2390 GOSUB 3310 
2400 RETURN 

2410 DATA 33,0,0,0,0,0,0,0,0,30,0,0 

,0,0,1,3,7,10,37,24,60,126,255,255, 

255,255,255,38,0,0,0,0.128,192,224, 

240,39,0,0,0,0,0,0,0,0 

2420 DATA 33,0,0,0,0,0,1,1,3,35,31, 

63,127,255,255,255,255,255,37,255,7 

55.255.255.255.255.255.255.38.248.2 
52,254,255.255,255,255,255,39,0,0,0 
,0 S 0,128,192,192 

2430 DATA 33,3,3,3,3,3,1,1,0,35,255 
,255,255,255,255,255,255,255,37,255 
. 255,255,255,255,255,255,2S5, 38, 255 
,255,255,255,255,255,255,255,39,192 
,192,192,192,192,128,128.0 
2440 DATA 33,0,0,0,0,0,0,0,0,35,255 
,177,63,31,14,0,0,0.37,255,219, 153, 
24,60,60,60.60.38,255.254,252,248,1 



12,0,0,0,39,0,0,0,0,0,0,0,0 

2450 DATA 33,0,0,0,0,0,0,0,0,35,0,0 

,0,3,15,56,64,0,37,126,126,126,255, 

192,0,0,0,38,0,0,0,192,240,12,2,0,3 

9,0,0,0,0,0,0,0,0 

2460 RESTORE 2730 

2470 FOR i-1 TO 2:READ x,y 

2480 LOCATE x+ 9 ,y+d:PAPER i:PEN b:P 

RINT MID*<b*,e,1>:NEXT i:GOSUB 3310 

:RETURN 

2490 RESTORE 2740 

2500 FOR i-1 TO 3:READ x.,y 

2510 LOCATE xia, y+d: PAPER 1 :PEN bsP 

RINT MID*<b*,c,1>:NEXT i :GOSUB 331 

0!RETURN 

2520 RESTORE 2750 

2530 FOR i=l TO 4:READ x,y 

2540 LOCATE s+ »,y+d:PAPER 1:PEN b:P 

RINT MID*<b*,c,1);NEXT i:GOSUB 3310 

lRETURN 

2550 RESTORE 2760 

2560 FOR i-1 TO 5:READ x,y 



2570 LOCATE x+ p, y+d:PAPER 1 ; PEN b:P 
PINT MID*(b*,c, 1) : NEXT i-.GOSUB 3310 
:RETURN 

2580 RESTORE 2770 

2590 FOR i-1 TO 6:READ x,y 

2600 LOCATE x+ p, y+d:PAPER 1;PEN b:P 

RINT MIPS<b*,c,I) : NFXT i:GOSUB 3310 

:RETURN 

2610 RESTORE 2780 

2620 FOP i-1 TO 7:READ x,y 

2630 LOCATE x+ e,y+d:PAPER 1:PEN b:P 

RINT MIO*(b*,Cjt):NEXT i:GOSUB 3310 

:RETURN 

2640 RESTORE 2790 

2650 FOR 1=1 TO 8:READ x,y 

2660 LOCATE x+»,y+d:PAPER 1:PEN b:: 

PRINT MID*(b*,c,D:NEXT i:GOSUB 331 

0:RETURN 

2670 RESTORE 2G00 

2680 FOR i=l TO 9 ; READ x,y 

2690 LOCATE x+s,y+d:PAPER 1:PEN h:P 

RINT MID*<b»,c,i):NEXT i:GOSUB 3310 

:RETURN 

2700 RESTORE 2810 

2710 FOR i-1 TO 10:READ x,y 

2720 LOCATE x+»,y+d:PAPER 1:PEN b:P 

RINT MID*(b*,c,1):NEXT i:GOSUB 3310 

:RETURN 

2730 DATA 3,3,3,6 

2740 DATA 3,3,3,5,3,7 

2750 DATA 2,3,4,3,2,7,4,7 

2760 DATA 2,3,4,3,2,7,4,7,3.5 

2770 DATA 2,3,4,3,2,5,4,5,2,7,4,7 

2780 DATA 2,3, 4,3,3,4,2,5,4,5, 2,7,4 

,7 

2790 DATA 2,3, 4,3, 3, 4,2,5, 4,5, 3,6,2 
,7,4,7 

2800 DATA 2,3,3,3,4,3,2,5,3,5,4,5,2 
,7,3,7,4,7 

2810 DATA 2,3,4,3,2,4,4,4,2,5,4,5,2 
,6,4,6,2.7,4,/ 

2820 RESTORE 2900 
2830 FOR nv-3 TO 6 

2840 FOR i-1 TO 5:F0R nn»I TO 9:REA 
D n(nn):NEXT nn:SYMBOL n<l>,n(2),n( 
3),n(4),n(5),n(6),n(7),n(0),n (9):NE 
XT 1 

2850 LOCATE e+1,d+nv: PAPER 1:PEN b: 
PRINT 

2860 NEXT nv 

2870 LOCATE @+1,d+7:FOR j-0 TO 4:PA 
PER 1: PEN b: PRINT MID* (b*, c, I) ; : NEX 

T j 

2880 GOSUB 3310 
2890 RETURN 

2900 DATA 33,0,0,0,0,0,0,0,0,35,255 
,251,123,59,31,31,31,31,37,255,109, 
109,109,255,224,224,227,38,255,190, 
188,194,248,16,16,200,39,0,0,0,0,0, 
0.0, 0 

2910 DATA 33,0,0,0,0,0,0,0,0,35,31, 
31,31,31,31,31,63,63,37,220,224,224 
.225,225,224,240,244,38,132,2,2,6,l 
20,240,0,24,39,0,0,0,0,0.0,0,0 
2920 DATA 33,0,0,0,0,0,1,14,16,55,6 
3,16,16,10,16,220,2,113,37,227,1,0, 
255,0,33.82,36,38,48,192,64,128,64, 
62,1,112,39,0,0,0,0,0,0,128,120 
2930 DATA 33,0,0,0,0,0,0,0,0,35,128 
,68,131,0,0,0,0,0,37,0,0,1,222,32,0 
, 0,0,38,0, 16,8,0,0, CKl, 0,39,0,0,0,0 
,0,0,0,0 

2940 RESTORE 3020 
2950 FOR nv-3 TO 6 

2960 FOR i-1 TO 5:FOR nn»l TO 9: REA 
D n(nn):NEXT nn:SYMBOL n(i>,n(2),n( 
0),n(4),n(5), n (6),n(7),n(0), n (9):NE 
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XT i 

2 Q 70 LOCATE p+ 1 ,dtnv:PAPER 1:PEN b: 
PRINT "'ttV.S,’" 

2«e0 NEXT nv 

2 <3 9d LOCATE 0+l,df7:FOR j 0 TO A: FA 
PER 1:PEN b:PRINT MID*(bS,c,1);:NEX 
T 

7000 003UB 7.7 10 
3010 RETURN 

3020 DATA 33,0,0,0.0,0,0,0,0,35,0,3 
.3,62,126,140,12R, 12 R,37 ; 126,255,25 
5,247,247,99,0.0,30,0,192,192, 1 RS,1 
90,17, 1 ,1,30,0,0,0,0,0,0,0,0 
3070 DATA 33,0,0,0,0,0,0,0,0,35,214 
, 255, 254, 254,249,240, 251 , 1 3 , 3 - 7 , 1 02 
,255,60,0,195,0, 195, 129,30, 107,255, 
127, 127, 159,31,223, 141,39.0,0,0,0,0 
, 0 , 0,0 

3040 DATA 33,0,0,0,0,0,0,0,0,35,112 

,43,48,16,23,28,15, 15,37,24,36,60,0 

,24.126,24,0,38,14,12,12,12,56,56,2 

40,240,39,0,0,0,0,0,0,0,0 

3050 DATA 33,0,0,0,0,15^8,8,0,35,1, 

1.7.252,3,0,0,0,37,0,0,0,0,0,195,40 

,48,38,128,128,208,63,192,0,0,0,39, 

0,0,0,0,240,16,16,0 

3060 RESTORE 3140 

3070 FOR nv*3 TO 6 

3080 FOR 1 1 TO 5:FOP n n=l TO 9:REA 
D nfnn):NEXT nn:SYMBOL n(l),n(2),n< 
3) ,n <4> , ft <55 ,n <61 , n <71 , n <81 , n (9) : NE 
XT i 

3090 LOCATE @+1,dfnv:PAPER 1:PEN b: 
PRINT "ir/.S.’" 

3100 NEXT nv 

3110 LOCATE f+ 1,d+7:FOR j=0 TO 4:PA 
PER 1 3 PEN b:PRINT MID*(b*.c,1>j:NEX 
T 

3120 GQSUB 3310 
3130 RETURN 

3140 DATA 33,0,0,0,0,0,0,0,0,35,68, 
7B,123,63,31,15,62,61,37,33,115,22? 

,255,115,255,24,193,38,9,157,247,25 
4,156, 748,62,222, 39,0,0,0,0,0,0,0,0 
3150 DATA 33,0,0,0,0,0,0,0,0,35,56, 
27,25,24,24,12,14,15,37,34,128,128, 
0,0,34,28,255,38, 14,236,204, 12, 12.2 
4,56,248,39,0,0,0,0,0,0,0,0 
3160 DATA 33,0,15,57,73,136,136,136 
,128,35,7,255,193,192,192,64,64,0,3 
7,255,227, 255,255,127,62,0,0,78,240 
,255,195,131,3,2,2,0,79,0,240,156,1 
46,18,13,18,2 

3170 DATA 33,4,2,1,0,0,0,0,0,35,0,2 
4,25,129,65,63,0,0.37,0,0,0,0,0.255 
,24,0,38,0,24,152, 129.130,252,0,0,3 
9,16,32,64,120,0,0,0,0 

31(30 REM ttttltt'ttltt ttttttttttt*** 

* 

3190 rlM *FONDO Y MARCO DF LA CARTA 

* 

7200 REM ttttttttftttttttttttttttt* 

* 

3210 FOR i»l TO 9:LOCATE e,d+i:PAPE 

R 1:PRI NT " "jNEXT i 

3220 f=e*16-16 

3230 g«399-dtl6+2 

3240 PLOT f,g,2 

3250 DRAWR 110,0:QPAWR 0,-146:DPAWP 
-110,0:DRAWR 0. 146 
3260 PEN 3 4 

3270 RETURN 

3280 REM tttttttttttttttttttttttt t* 

* 

3290 REM * IDENTIFICADOP DEL NAIPE 

it 

3300 REM tttttttttttttttttttttttttt 
t 

3310 PRINT CHR*(22);CHR*(1);;PAPCP 
1:PEN b:LOCATF w,d<1:PRINT MID*(at, 
a,1>:LOCATE e.d + 2:PR I NT MID*ib*,c,l 
) (LOCATE f?+ 6 , d + 9: PRINT MII)*<a*,»,l) 
(LOCATE B(- 6 ,d + S:PPINT MI D* (b*, c, 1) : 
PRINT CHR*(22);CHR*(0);:80SUB 3240 
3320 PAPER 0 
3330 RE TURN 

3340 PEM ************ ************** 

* 

33*50 REM * IMPPIME EL MEN 8 AJE 


3360 PEM ************************** 
* 

3370 LOCATE 1,23:PAPER 0:PRINT c*:P 
APER 2:PEN 1:LOCATE 21-LEN<di)/2,27 
:FOR i»l TO LEN <d*):PRINT MIP*(dS,i 
, 1 > ;:NEXT i 
3380 PAPER 0 
3390 RETURN 

3400 REM ************************** 

i 

3410 REM * EXTRAE CARTA DEL MA70 

* 

3420 REM ************************** 
* 

3430 c=INT < 1 ASC < MID$(a*,o, 1))-1)/13 
) +1 :a=ASC(MID* 1))-13* (c-1>:IF 

c >2 THEN b=*2 ELSE b-3 
3440 RETURN 

3450 IF a>10 THEN a=10 
3460 RETURN 

3470 REM ************************** 

% 

3480 REM * ESPERA PULSAR DE TECLA 

* 

3490 REM ************************** 
* 

7500 at*=INKEY*:WHILE et*<>"";FQR r 



et*l TO 50:NEXT:»tINKEY*:WEND 
3510 x*="": WHILE x*0"S" AND x*<>"N 
":x*-UPPER*(INKEY*): WEND 
3520 RETURN 

3530 REM ************************** 
* 

3540 REM * SIJBRUTI NAS AUXILIARES 

* 

3550 REM ************************** 
* 

3560 PLOT 3*16-16,400-12*16:DRAWR 1 
6,0:RETURN 

3570 PLOT 38*16-16,400-12*16:DRAWR 
16,0:RETURN 

3580 PLOT 35*16-16,400-9*16,2:DRAWR 
5*16,0:DRAWR 0,7*16:DRAWR -5*16,0: 
DRAWR 0,-7*16:RETURN 
3590 REM ************************** 
3600 REM * MAX I MAS PUNTUACIONES * 
3610 REM ************************** 
3620 MODE 1:INK 3,24:INK 1,6:PEN 3: 
PAPER 0:IF dg<-rec(6) THEN 3830 
3630 LOCATE 6,5:PRINT "ES UNO DE LO 
S MAS RICOS DC HOY" 

3640 PLOT 6*16-16-B,400-5*16-8,2:DR 
AWR 30*16+16,0:DRAWR 0,32:DRAWR -30 
*16-16,0:DRAWR 0,-32 

7650 can*-"HA TERM INADO C0N”4STRS(D 
0)+" PTAS" 

3660 can=LEN(can*):IF can MOD 2=0 T 
HEN can*’" ,, +can* 

3670 PEN 2:LOCATE 20-tan/2,10:PRINT 
can* 

3680 MOVE 12*16-8,400-16*16+8:TAG:P 
PINT "ESCRIBA SLI NOMBRE" ; : TAGOFF 
3690 WINDOW #1,12,29,10,20:PAPER #1 
,2:PEN #1,1:CLS#1:LOCATE #1,6,2:PRI 

NT #1,"." ; STRING* < 13 j 0) ; 

3700 PLOT 12*16-16-2,400-20*16-2,3: 

OPAWR 17*16+16+2,0:DRAWP 0,50::DRAW 

R -17*16-16-2,0:DRAWR 0,-50 

3710 WHILE INKEY«<> ,M, s WEND 

3720 tB$=" " jnomS*" WHILE taSOCHR* 

(13) 


3730 IF t.»*>CHR* (31 ) AND ta*< M z H AN 
D LEN(nom*)<fl THEN namJ nafn$ + te$:PR 
INT #1,t»$; 

3740 IF te*-CHR*(127) AND LEN<nam*) 
THEN nomS^LEFT*(nam$,LEN(nnmJ)-1): 
PRINT #1,CHR*(8);CHR*(16);";CHR*( 
8) ; 

7750 ta*-INKEY* 

3760 WEND 
3770 PAPER 0 
3700 r®c$(6)^nam* 

3790 r@c(6)-dg 

3800 FOR j=»6 TO 2 STEP -1 

3810 IF r bc< i)>r®c(i -1) THEN k«*«r9 

c*(i) ;r»c*(i )-r»c*(i-l ) :roc*(j-l)=k 

s*: ks«r ec ( i ) : r«c < i ) »r®c (i ~i ) : rec (i - 
1 > =k<= 

3820 NEXT i 
3830 CLS 

3840 PLOT 0,0,2:DRAWR 638,0:DRAWR 0 
,398:DRAWR -638,0:DRAWR 0,-798 
3850 PAPER 2:PEN 3:LOCATE 8,1:PRINT 
"LOS MAS RICOS DE HOY SON 
3860 FOR i* 1 TO 6:PEN 1:PAPER 3:L0C 
ATE 12,i*2+1:PRINT USING "\ \" 

?rec4(i);:PAPER Os PEN 2:WHILE POS<# 
0X24: PRINT " . " ; : WEND: PEN 2: PAPER 3 
:PRINT USING "######" \ rec(i) 

3870 NEXT 

3880 FOR i*C> TO 640 STEP 18: PLOT i, 
0,2:DRAW 0,400-i t 1.6:NEXT 
3B90 FOR i -0 TO 640 STEP 18;PLOT i, 
0,2:DRAW 640,i/1.6:NEXT 
3900 LOCATE 12,18:PEN 1:PAPER 2:PRI 
NT 11 PULSE UNA TECLA. LOCATE 12,1 
7:PRINT STRING*(18,32);:LOCATE 12,1 
9:PR INT STRING*(18,32) 

3910 WHILE INKEY*<>"WEND:WHILE IN 

KEY**"":WEND 

3920 PAPER 0:PEN 1 

3930 CLS:INK 0,10:INK 1,26:INK 2,0: 
INK 7,6 
3940 RETURN 

3950 REM ************************** 
** 

7960 REM * ESCRIBE VENTANA 

* 

7970 REM ************************** 
** 

3980 LOCATE #1,6,1:PEN #1,1:PRINT # 
1, "MAND N" ;CHRS (254) j SPRINT #1,LISIN 
G "##";mano:LOCATE #1,1,2:PRINT #1, 
STRING*(20, 

3990 PEN #1,1:LOCATE #1,1,3:PPINT # 
1,"l-jCHR*(255)j" CAMINO«";:PEN #1, 
3: IF bji-1 THEN PR I NT#1,"BLACK JACK 
"!FOR ret = l TO 300:NEXT ELSE PRINT 
#1,USING "##";s;:PRINT #1," PUNTOS" 
4000 IF p THEN PEN #1,1:LOCATE #1,1 
,4:PR I NT #1,"2"j CHR*(254)j" CAMINQ= 
"; : PEN #1,3:IF hj2»*t THEN PRINT #1, 
"BLACK JACK":FOR ret-1 TO 300:NEXT 
ELSE PRINT #1,USING "##"jp;iPRINT # 
1," PUNTOS" 

4010 PEN #1,1:LOCATE #l,i,5:PRINT # 
1,"APUESTA:tPEN #1,3:PRINT #1,USI 
NG "#####";h;iPRINT #1," PTAS" 

4020 IF q THEN PEN #1,1:LOCATE #1,1 
,6:PRINT #1,"SEGURO:";:PEN #1,3:PRI 
NT #1,USING "####“;q;:PRINT #1," PT 
AS" 

4030 IF r THEN LOCATE #l,1,7:PEN#1, 
3:PRINT #1,"APUESTA DOBLADA" 

4040 RETURN 
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EL MUNDO DE 3LOQUES 


Uno de los temas mas espinosos de la IA, todavia no resuelto, es lo que 
los investigadores en este terreno llaman «proceso del lenguaje natural» 
o «comprension del lenguaje natural», es dear, conseguir que los 
ordenadores comprendan el lenauaie humano. 

Creo que todos podemos imaginar la complejiaad que este proposito 
entraha, ya que nuestros idiom as estan llenos de ambigiiedades, frases 
hechas y eoloquiales, etc, que nosostros mismos comprendemos solo 
gracias a( enorme banco de memoria que tenemos en nuestro cerebro, y 
a algo indefinible, por ahora al menos, que llamamos inteligencia. 

Los computadores no tienen de eso, pero, como ya hemos aprendido en 
el curso de IA, pueden simularlo de manera bastante convincente 

(recuerden el programa Eliza). 

En el caso del lenauaje, este s6lo puede ser comprendido dentro de un 
entorno predecible, esto es, que posea una serie de posibilidades o 

«movimientos» fijos. 

Hubo un hombre, Terry Winnograd, que marco un hito hasta ahora 
insuperado con un programa, escrito en «Planner», en la comprension 
del lenguaje natural; podia man ten er conversaciones con su «obra» de 
una increible complejidad. Nosotros, con algunas logicas limitaciones, 
hemos escrito en Basic una version del Mundo de Bloques, y, lo que es 
mucho mas decisivo, hemos explicado con todo detalle las tecnicas que 
se usan para que una maquina comprenda nuestra lengua y actue en 

consecuencia. 

Sin mas preambulos, AMSTRAD Semanal presenta... El Mundo de 

Bloques. 

Por Jose Antonio Morueco Gonzalez 
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a inteligencia artificial 
es un area de la informatica muy importante, 
que nos permite atacar tareas que no podian 
ser realizadas hasta hace pocos anas. La in¬ 
teligencia artificial tiene unas tecnicas propigs 
especiales y muy variadas segun sea el obje- 
tivo a conseguir. Estos objetivos se dividen en 
tres grandes grupos: 

— Los sistemas expertos. 

— Los procesadores de lenguaje natural. 

— La robotica. 

Tanto la parte de los sistemas expertos co- 
mo la de la robotica no tienen mucho que ver 
con el programa aqui presentado, aunque si 
es bueno saber un poco sobre su objetivo pri¬ 
mordial: ayudar al hombre a resolver situa- 
ciones y a tomar decisiones basandose en el 
conocimiento «inteligente» que tiene el orde- 
nador en el area del saber en la que estamos. 
Este conocimiento inteligente, su presentacion 
y su gestion, es el que distingue la inteligen 
cia artificial del resto de las fecnicas informa- 
ticas. 

Lenguaje natural 

Par otra parte, que nos atane mas en este 
articulo, esta el procesamiento del lenguaje na¬ 
tural. Para una persona que no este ramiliza- 
rizada can el mundo de la programacion, es¬ 
te problema puede parecerle no muy compi- 
lado, porque a el le cuesta muy poco compren- 
der lo que se dice en un escrito o lo que se 
dice por la radio. Pero el problema de hacer- 
le entender al ordenador nuestro lenguaje na¬ 
tural, aun teniendo ciertas estructuras, es muy 
poco sumiso a unas reglas de construccion se- 
veras. Esta flexibilidad del lenguaje humano 
es la que complica las cosas al ordenador. 

Los lenguajes con los que el hombre se co- 
munica con el ordenador son de unas estruc¬ 
turas muy severas, y en los que hay pocas pa- 
labras distintas, aunque desde fuera pueda pa- 
recer todo lo contrario. Cuando una persona 
hace un programa en BASIC, por ejemplo, tie¬ 
ne que andarse con mucho cuidado de utili¬ 
zer exactamente las palabras reservadas que 
hagan falta; en caso contrario tendra muchos 
errores. Cuando hablamos con un amigo no 
es necesaria tanta precision, y de hecho no 
pensamos que palabra usar en esta frase, o 
que estructura sintactica en aquella otra: sim- 
plemente decimos lo que se nos ocurra. 

Todo esto nos conduce a reflexionar sobre 
como hacer que podamos conseguir que el or¬ 
denador comprenda Castellano directamente. 
Para ello es necesario hacer un programa que 
sirva de interfase entre nuestras palabras y la 
accion que se quierc realizar. Esta interfase 
es la que traduce, a codigo mas comprensi- 
ble para el ordenador, dichas palabras. 


Hasta ahora, no se han hecho procesado¬ 
res de lenguaje natural que puedan conside¬ 
rate completos, sino que se tiene un conjun- 
to de palabras limitado o palabras claves, que 
son las que entiende el programa y mediante 
las cuales intenta comprender las frases da- 
das, como se vera luego mas practicamente 
con el programa que se presenta. 

Claves del procesamiento 
del lenguaje natural 

El procesamiento de lenguaje natural tiene 
varios puntos fundamenlales: 

— El diccionario, o conjunto de palabras 
que son conocidas y pueden traducirse. 



— Las reglas sintacticas y estructuras del 
lenguaje natural que son analizadas por el 
procesador. 

— Las herrarnientas que pueden usarse, etc. 
Con respecto a las herrarnientas, es muy im¬ 
portante hacer notar que el BASIC no es pre- 
cisamente muy adecuado para la inteligencia 
artificial, lo que produce en algunos casos cier¬ 
tas limiiaciones; se estan desarrollondo lengua¬ 
jes, como LISP o PROLOG, mas adecuados pa¬ 
ra estas cuestiones, y permiten unas represen- 
taciones de las estructuras mas satisfactorias. 

De todas formas esto no es un obstaculo in- 
salvable; de hecho, pienso que es interesante 
ver, en un lenguaje de programacion de gran 
extension, algunas de estas fecnicas, aunque 
la forma de representacion no sea la mas op¬ 
tima. 

En el caso que nos ocupa, tenemos un con- 
junto limitado de palabras que realmente tra¬ 
duce el programa, pero a la bora de usarse 
parece que hay mas, debido a que puden 
usarse muchas mas palabras, aunque sean ig- 
noradas en la comprension de la frase. Pase- 
mos pues al programa. 

Un procesador 
de lenguaje natural 

sQue se puede hacer con el programa? 
Antes de ver como funciona, veamos un po¬ 
co como se usa. Cuando des al «run», para eje- 
cutar el programa, te apareceran varios cua- 
dros y triangulos de distintos colores y tama- 
nos, y debajo de estos, unas lineas de texto. 



Ahi es donde debes ir dandole las ordenes al 
programa. Esta ordenes consiten en cual de 
las fiyuras quieres que se mueva, y donde. Por 
ejemplo puedes escribir: 

pon ei tridngulo pequeno rojo enci- 
ma del cuadro grande azul 

Como puedes observar, tienes tambien unos 
numeros debajo de las figures, del I al 12, que 
tambien pueden usarse; por ejemplo, despues 
del movimiento anterior, la posicion donde es- 
iaba el tridngulo pequeno rojo, la numero 10, 
queda vacia. Por ello, puedes ahora llevar alii 
otra figura; por ejemplo puedes dar la orden: 

lleva el cuadro pequeno verde a la 
posicion 10 

De esta forma puedes ir realizando los mo- 
vimientos que desees de uno forma natural. 
Asi, por ejemplo, el primer movimiento lo pue¬ 
des expresar de muchas maneras diferentes en 
Castellano, igualmente compressible para el 
programa; algunas de estas formas podrian 
ser: 

pon sobre el cuadro azul grande el 

tridngulo rojo pequeno apila et 
tridngulo rojo pequeno en el cuadro 
azul grande 

situa debajo del tridngulo pequeno 
rojo el cuadro grande azul 

Como ves, hay bastantes variaciones ideo- 
maticas para expresar una cosa tan sencilla 
como esta. Este es uno de los problemas de 
traducir por ordenador el lenguaje natural, co¬ 
mo dedamos en la introduccion. Debido a ello 
hay ciertas limitaciones, pero bastante razo- 
nables. Por ejemplo, no intentes comprender 
frases que pueden ser ambiguas en su signifi- 
cado, ni frases tratadas de forma poetica. - 
como podrian ser «pon el gran cuadro rojo so¬ 
bre el triangulo cielo»— cosa que complica- 
rfa mas todavla la logica del programa, ya de 
por si complicada solo con un lenguaje nor¬ 
mal. 


Las leyes semanticas 

del programa «bloques» 

Aparte de las cuestiones sintacticas, tambien 
he introducido algunas reglas semantics sen- 
ciilas como son: 

— No puedes poner figuras del mismo co¬ 
lor apiladas juntas. 

— No poner nada encima de un triangu¬ 
lo, porque, visto con naturalidad, se caeria. 

— Algo grande no pued ir encima de olgo 
mas pequeno, cosa tambien razonable, etc. 

At, AMSTRAD ESPECIAL 67 



















Estas reglas tienen por mision que se vea co- 
mo se enfiende la frase y, o bien se Neva a ca 
bo el movimiento indicado, si es posible, o bien 
se indica el porque no se puede hacer. 

Para que lo veas, haz todas las combinacio- 
nes posibles de movimientos, e irds viendo que 
hay muchos posibles. 

Por ultimo notar que para acabar basta con 
decirle «adios». 

v^isfo ya como usarlo entremos un poco en 
su construccion. La idea general consiste en 
adivinar que palaDras clave estan en la frase 
del usuario y cudi es la estructura de la frase. 

Representacion 
Del conocimiento 

Cuando empiezas a pensar en como cons- 
rruir un programa asi, lo primero que hay que 
limitar es el numero de palabras y estructuras 
que van a ser comprendidas. En nuestro caso 
tenemos 5 estructuras generales, las cuales son 
bastanfe razonables. 

Esfas estructuras son: 

1 • Poner el objeto A encima del 
objeto B. 

2. Poner el objeto B debajo del 
objeto A. 

3, Poner encima del objeto B el 
objeto A. 

4 Poner debajo del objeto A el 
objeto B. 

5. Poner el objeto A en la posicion 

n (con n entre 1 y 12). 

donde el objeto puede ser un tridngulo o un 
cuadrado, de un cierto famario (grande o pe¬ 
queho), y un cierto color (verde, azul o rojoj. 



Cada objeto, junto con sus atributos, se con- 
siderara como un todo a la hora de analizar 
la frase. Tambien hay que notar que llamo ob¬ 
jeto A al que esta encima, y objeto B al que 
va a estar debajo; esto se usara al hacer el 
programa. 

En el programa hay varies partes, que ire- 
mos viendo: 

— El programa principal, es la mayoria del 
programa, y donde se va analizando ,a estruc¬ 
tura de la frase y, una vez hecho esto, se lie- 
van a cabo las acciones semanticas (movimien¬ 
to a hacer o mensaje de por que no hacer el 
moviento). 


- Las subrutinas 2500 y 3000, cuya mision 
es dibujar, o Dorrar, cuadrados y triangulos, 
respectivamente. 

— La subrutina 2000 es clave y tiene por 
mision decir en que posicion esta una palabra 
(pal$) en una frase (fr$), si esta. 

Vayamos al programa principal linea a lt- 
nea. Para comprenderio, veamos primero las 
variables mas importantes y su funcion: 

- px(i),py(i) -con i entre 1 y 12- tienen 
la posicion horizontal y vertical de los obje- 
tos. Estos objetos estan numerados del 1 al 12 
y son: 

1 =cuadrado azul grande. 

2 = cuadrado azul pequeho. 

3 = cuadrado rojo grande. 

4 = cuadrado rojo pequeho. 

5 = cuadraa'o verde grande. 

6 = cuadrado verde pequeho. 

7^triangulo azul grande. 

8 = triangulo azul pequeho. 

9 = tridngulo rojo grande. 

10 = triangulo rojo pequeho. 

11 = triangulo verde grande. 

12 = triangulo verde pequeho. 

En las primeras lineas se inicializan estas po- 
siciones para la configuration inicial. Tambien, 
asociada a estas, esta p(i), que mantiene siem 
pre las posidones iniciales de px(i), y sirve para 
los numeros que aparecen en pantalla del 1 
al 12, y para cuanao se indique que se ha de 
poner aigo en dichas posiciones. 

- dbji), indica que figura esta debajo de 
la i-esima; si no hay ninguna valdrd 0. Por 
ejemplo, si el tridngulo ro'o pequeho esta en¬ 
cima del cuadrado azui grande entonces 
db(10) = l. 

f - oc (i)~ con j entre I y 6 —indica si el cua¬ 
drado numero j esta cubierto— 0c(j) = — 1 — 
o si esfd descubierto —oc{j) = 0. 

— La variable p va a usarse para posicio¬ 
nes en frases donde esta cierta palabra, se- 
gun se calcula en la subrutina 2000. Ademds 
hay variables pr, pa y pb que indican posicio¬ 
nes en la frase de la preposition, el 
objeto A y el objeto B. Esta tam¬ 
bien la varible n, que indica 
la posicion de la frase 
donde se ha de empezar a 
buscar la palabra. 

— na y nb contienen al final los 
numeros asociados a los objetos A y 



dica si la estructura de la frase es la quinta, 
es decir, en la que se indica un movimiento a 
una posicion numerica, en cuyo caso hn vale 
— 1. En caso contrario valdrd 0. 

— Tambien esta la variable cs, que vale 1 
para las estructuras 1 y 4, en las cuales el ob¬ 
jeto A esta delante, en la frase, del objeto B; 
y vale 2 en las estructuras 2 y 3, que ocurre 
lo contrario. 

— La variable ar indica si la estructura usa 
preposiciones como en, encima de, sobre, en 
cuyo caso ar yale — 1, o si se usan preposi¬ 
ciones como bajo, debajo, en cuyo caso vale 


0. Es decir, es otra variable para discernir la 
estructura. 

- La variable aux indica si el objeto A es 
un tridngulo —aux = 6— o es un cuadrado — 
aux = 0. 

— La variable t indica si el objeto es gran¬ 
de o pequeho, segun valga 32 6 16; t es la 
apofema del objeto. Este valor depena'e de si 
el numero dei objeto es par —pequeho— o im- 
par —grande. 

— Para indicar el color estan las variables 
ca y cb. 

Hay alguna variable mas, pero estas son las 
mas importantes. 

Las demds las iremos viendo cuando apa- 
rezean. 

Veamos ya la realization del programa. 
Las primeras lineas, hasta la 280, es la 
initialization de las variables, dibujar en pan¬ 
talla el estado inicial, con el control de colo¬ 
res conveniente, construccion de la venta- 
na de texto. 

Esta parte es sencilla y su unica complica- 
cidn es el calculo de las posiciones en panta¬ 
lla en donde se han de dibujar los objetos. 

Despues se escribe el texto inicial y, en la li¬ 
nea 300, se pide ya el movimiento deseado, 
que se mete en la variable fr$. 

Se mira si la palabra es «adios» para termi- 
nar. 

A partir de aquf, se empieza ya el andlisis 
de .a frase con la intencion de saber al final 
del andlisis el valor de la no y nb. que repre- 
sentan el numero del objeto de arriba y aba- 
jo. 



68 M. AMSTRAD ESPECIAL 











Entre las lineas 330 y 370 se mira si hay en 
la Erase algun numero del 1 al 12. Si lo hay 
estamos en la quinta estructura y hacemos 
hn=—1. Si no la hay hecemos hn = Q. 

Si hemos encontrado el numero, que sera 
el ji, miramos —lineas 410 a la 450— si dicha 
posicion ji esta ocupada; esto ocurrira cuan- 
do exista algun j con p(ji) = px(j), es decir, cuan- 
do algun objeto tenga su posicion horizontal 
en la misma de ji. Si esta ocupada, entonces 
se manda el mensoje correspondiente y se 
vuelve a empezar con otra orden. En caso con- 
trario, se va a la linea 620, para ver que ob¬ 
jeto es el que ha de llevar a la posicion ji. 

Si hn = 0 entonces sigue por las lineas 460 
hasla la 550, en donde se va viendo cual es 
la preposicion que se usa en la Erase. Segun 
cual sea, ar valdra —160, segun vimos al ver 
las variables. Si no se encuentra ninguna de 
estas preposiciones se manda el mensaje co¬ 
rrespondiente y se empieza de nuevo. En la 
610 ponemos en pr la posicion donde estaba 
dicha preposicion. 

En las 620-630 se comprueba si la palabra 
cuadrado esta en la Erase. Si no esta y no es¬ 
tamos en la quinta estructura, entonces es im 
posible porque e! objeto de abajo tiene que 
ser un cuadrado y se manda el mensaje con- 
veniente de la linea 650. 

En caso de la quinta estructura, si hn, es po¬ 
sible que no este ningun cuadrado en la Era¬ 
se, y sera un triangulo. Si no estamos en a 
quinta estructura, entonces hacemos pb = p, lo 
cual es provisional, y buscamos en la Erase si 
hay, despues de el cuadro encontrado, otro 
cuadro —por eso tomo n = pb + 8, posicion 



posterior a la de cuadrado. Si lo hay, no ha- 
ce Ealta buscar si esta el triangulo y nos salta- 
mos las lineas 710-740; y variamos las posi- 
ciones pa y pb, suponiendo el caso 1. Las po- 
siciones se cambiaran o se dejaran segim la 
estructura que tengamos. 

Si no hay dos cuadrados se mira si hay trian¬ 
gulo, coma antes con los cuadrados; si no lo 
hay se manda el mensaje como pa, y aux = 6, 
como se vio al ver las variables. 

Asi ya fenemos en pa y pb las posiciones de 
los dos objetos. En caso de la quinta estructu¬ 
ra no es necesario y simplemente no influira 
en su ejecucion dichos pardmetros. 
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Una parte fundamental esta entre las lineas 
750-760, en donde se analiza la estructura en 
la que nos encontramos. En las lineas 750 y 
753, por medio de dos instrucciones condicic- 
nadas, se consigue saber cual es el valor de 


cs: 

— Si pr < pa y pr < pb y ar= 1 entonces es- 
taremos en la estructura 2 con lo que cs = 2. 

— Si pr < pa y pr < pb y ar = 0 entonces es- 
taremos en la estructura 4 con lo que cs = 1. 

— Si no se da la condicion de las posicio¬ 
nes y ar = —1, estaremos en la estructura 3 y 
cs = 2. 

Tras es '0 sabremos ya el orderB^objeto 
A y el objeto B: 

cs = 1: el objeto A delante del objeto B 

cs=2: el objeto B delante del objeto A. 

Recordar que el objeto A es el de arriba y 
el objeto B es el de aba|o, por lo cual es rrtuy 
importante saber su orden. Jados estos calcu- 
los se consiguen viendo todos los casos posi- 
bles que se pueden presentar en las extructu 
ras, y, por ello, es lo mas complicacLde en- 
tender. 

Despues, en la linea 756, se compru 
el objeto B, el de abajo, es un t. 'an 
medio de un if un poco complical 
lo ve las posibilidades de que asi^^^ 
cho caso nos vamos a la linea 65C 
da el nombre conveniente. 

Por ultimo, en la linea 758, si cs = 2. es de¬ 
cir, si estamos en una estructura con el objeto 
B delante del objeto A, se intercambian pa y 
pb, para que tengan ya la posicion de A y B 
de forma correcta, respectivanunte. 

Entre las lineas 760 y 950 se calcula el co¬ 
lor que tiene cada objeto A y B actuales. Pc 
ra ello, se usa un data con las ™labra^ a 
rojo y verde, y sus numeros asoctadr , 1 


y 3. Si estamos con hn = — 1 entonces es mas 
sencillo porque solo se busca un color. 

Veamos que pasa en los demas casos. Para 
ello se toman dos subpartes de la frase total: 

— fr$(0) es la correspondiente al objeto A. 

- fr$(l) es la correspondiente al objeto B. 

Estas se calculan segun estemos en unas es- 

tructuras o en otras, dependiendo del valor de 
cs y via unos calculos sencillos de las posicio¬ 
nes pb y pa. Despues se van leyendo de los 
datas estos colores para cada subfrase ade- 
cuada, obteniendo en n(0) el color de A, y en 
n(l) el de B, valores que se traspasan a ca y 
cb respeclivamente. Si no se encuentran estos 
colores se saca el mensaje adecuado, saltan- 
do en la linea 910 a la 720. 

Si los colores coinciden, tambien se lanza el 
mensaje adecuado. En el caso de hn = —1 so¬ 
lo tenemos, como es de esperar, un solo co¬ 
lor en ca. 

Entre las lineas 960-1080, se calcula, de for¬ 
ma parecida, los tamahos de los objetos A y 
B, los cuales estan al final en n(0) y n(l) res- 
pectivamente. El procedimiento es similar al 
anterior, incluido para hn=—1. 

Ahora, calculo ya los valores de na y nb, 
que son los numeros asociados a los objetos 
A y B que se han calculado. Si estamos en la 
estructura 5, hn=—1, nb = 0 y no hay proble- 
mas. En la linea 1110 se calcula, en caso de 
la estructura 5, si el objeto cabe en la posicion 
en donde se le intenta colocar. 

En estas lineas se comprueba tambien si el 
cuadrado de abajo, objeto B, estaba ya ocu- 
pado, oc(nb) =—1, o si el de arriba esta ya 
cubierlo. En ambos casos el movimiento no se 
hace y se manda el mensaje conveniente. Tam¬ 
bien se ha comprobado si el objeto de arriba 
no es mayor que el de abajo. 

Lo que queda de programa principal es bo- 
rrar el objeto A de donde este-y colocarlo so- 
bre el objeto B. Para borrarlo se vofi la su 


Trade o 
el color 
lo en su 
:gun el otj- 
ilores de las 


brutina 2500 6 3000, segun s*; 
triangulo, y con br = —1 se pi 
,/de fondo dicho objeto. Par 
sitio actual se calcula, segud™ 
jeto sea grana!4 pequeho, lo 
nuevas posiciones; la variable xx se usa para 
saber, antes de borrar el objeto, si va a ca¬ 
ber, en IcTnueva posicion, dentro de la pan- 
talla. 

Por ul in >p • r de; ajo del objeto A el ob- 
: , - b —y desocupar el anterior, 
es, como debe ser. Ya solo 
nas de dibujo son mas sen- 
mdicar que la variable p indica el 

color. 

Conclusion: 

Espero que hayas enkndido as ideas de la 
construccion del programas y que te sirva para 
que veas lo complicaho qu. resulta llegar a 
comprender, digitalmelnte, el lenguaje hu-* - 
no. 

Tambien es importante notur que el 
no es muy adecuado, om y quedo di 
como se dernuestra a! seguir J programa pa- 
so a paso, 






M. AMSTRAD ESPECIAL 69 












10 DIM PX<12>,PY(12),p<12),DBC12) 

20 MODE 1 

30 INK 0,11:1NK 1,0:INK 2,9:INK 3,8 
40 BORDER 0 
50 PAPER 1: CLS 

60 PAPER 0 .’WINDOW HI ,1 ,40,20,25 

70 FOR I ! TO 6:PRINT #1:NEX1 

8@ PX<1> 43 :P(1>=43 

90 FOR 1=2 TO 12 

100 PXCI)=PX(1-1)+52 

110 P(I> = PX<I> 

120 NEXT I 

130 FOR 1=1 TO 12 

140 IF I MOD 2=0 THEN PY(I> = 161 ELS 

E PYCD-177 

150 NEXT I 

160 FOR 1-1 TO 6 

170 GOSUB 2500 

160 NEXT I 

190 FOR 1=7 TO 12 

200 60SU8 3008 

210 NEXT I 

220 FOR J=1 TO 12 

230 K=K>3 

240 IF K-9 OR K=22 THEN K=K+1 
250 LOCATE K,18:PRINT MI DSCSTR*<J), 
2 , 2 ) ’ 
260 NEXT J 


580 AR=-1 
590 GOTO 610 
600 AR=0 
810 PR=P 

820 PAL*-"CUADRADO" :GOSUB 2008 
630 IF P>0 THEN 880 
640 IF HN THEN 700 

858 PRINT *1,” SI PONES ALGO ENCIM 

A DE IN TRIANGULO PUEDE CAERSE.R 

EPITE":GOTO 290 

660 IF HN THEN 740 ELSE PB=P 

670 N*>PB+8 

680 GOSUB 2000 

690 IF PO0 THEN PA=PB:PB=P:GOTO 7 
5@ 

700 N-l 

710 PAL*="TRI ANGULO 1 * i GOSUB 2000 
720 IF P=0 THEN PRINT ttl , • NO ME D 
AS SUF I Cl ENTE INFORMACI O'!" : GOTO 290 
730 PA=P:AUX-6 

740 IF HN THEN 1=0: P-0:GOTO 860 
750 IF PR<PA AND PR<PB THEN CS=2 EL 
SE CS-1 

753 IF NOT AR THEN CS-3-CS 

755 IF AUX=0 THEN 758 

756 IF <CS=1 AND PB(PA) OR <CS=2 AN 
0 °B>PA> THEN 650 ELSE 760 

758 IF CS=2 THEN AB-PA:PA=PB:PB=AB 



■IbAaAaA 

Kl SI a m w m m «m »«i iw 


I cuadraJo r o Jo 

-nciFia dp-1 cuadrado r o, 

MgUIHJfiHTO NO LO . _ 

?NnT™* u .|! 0 £,.£ E]L MI3MO COLOR 

I—J2 DICAME mouimilnto ouieres 


pequeno 
jo grande 
PUEDFS H ACER 


yV> on 1 o I 


270 PRINT t! , TIENES EN LA PANTAI 
LA CUAORADOS Y TRIANGULOS GRf 

NDES Y PEQUENOS” 

280 PRINT ttl , ■ PUEDES INDICAR SI f 
UIERES PONER ALGO EN DQNDE ESTAI 

LOS NUMEROS.DICIENDOLQ’ 

29ti PRINT ttl,’ INDICAME QUE MOUIM1 
ENTO GUIERES" 

30 0 AUX=0 

310 LINE INPUT ttl -fp* 

320 FR* UPPER*(FR») 

330 N=1 

335 PAL*= * AD I OS R :GOSUB 2000 

336 IF p>0 THEN CLS:END 
340 FOR JI=t TO 12 

358 PAL*=MID*(STR*(JI),2,2) 

360 GOSUB 2000 

370 IF p>0 THEN 400 

380 NEXT JI 

390 HN=0 : GOT0 460 

400 HN=-1 

410 FOR J 1 TO 12 

420 IP P(JI)=PX(J) THEN 450 

430 NEXT J 

440 GOTO 620 

450 PRINT ttl," NO PUEDES PONER NAD 

A EN EL NUMERO jJI," PORQUE E 

STA OCUPADO":GOTO 290 

460 PAL*-“EN“:GOSUB 2000 

470 IF P>0 THEN 580 

4S0 PAL*="ENCIMA :60SUB 2800 

490 IF P>0 THEN 580 


500 £*AL*= * S08RE" : GOSUB 2900 

519 IF P>@ THEN 589 

520 PAL*-’DEBAJO”:GOSUB 2080 
530 IF P>0 THEN 600 

343 PaL*=“BAJO“:GOSUB 2800 

550 IF P>0 THEN 800 

560 PPINT ttl,' NECESITO QUE ME DIG 

AS ALGO MAS PARA SABER EL 

MOUIMIENTO" 

570 GOTO 310 


760 FT*-FR* 

770 IF CS-2 THEN Bl@ 

780 FR*(0)=LEFT*(FT*,PB) 

790 FR*(1>=RIGHT*(FT*,LEN(FT*)-PB> 
888 GOTO 830 

810 FR*<0 >=RIGHT*(FT*,LEN(FT*)-PA) 
820 FR*(1) LEFT*!FT*,PA) 

838 FOR 1-8 TO 1 
840 N=1:P=0 
850 FR*=FR*(I) 

860 WHILE PAL*< >"NO" AND P-0 
870 READ PAL*,NCI) 

880 GOSUB 2808 

890 WEND 

900 RESTORE 

910 IF P=0 THEN 720 

920 IF HN THEN CA=N(0):GOTO 960 

938 NEXT I 

940 CA=N(0):CB=NC1) 

950 IF CA=CB THEN PR I NT til," ESE MO 
UI MIENTO NO LO PUEDES HACER P 

ORQUE SON DEL MISMO COLOR”:GOTO 290 
980 PL*<8>=“GRANDE":PL*<1)=”PEQUENO 

970 IF HN THEN 1=0:GOTO 1010 
980 FOR 1=8 TO 1 
990 FR*=FR*(I) 

1000 ENC=0 

1010 FOR J-0 TO 1 

1020 PAL*—PL*(J) 

1038 GOSUB 2000 

1040 IF P<>8 THEN N( I > =J:ENC=-1 
1050 NEXT J 

I860 IF NOT ENC THEN 720 
1070 IF HN THEN 1890 
1080 NEXT I 

1090 NA=2*CA-1+N<0)+AUX 

1100 IF NOT HN THEN 1130 ELSE NB- 0 

1110 IF JI MOD 2 <NA MOD 2 THEN PR IN 

T ttl," HAY NO CABE" : GOTO 290 

1120 GOTO 1200 

1130 NB=2*GB-1+N(1) 


1170 IF (NB MOD 2) < (NA MOD 2) THEN 
PRINT ttl," NO PUEDE HACERSE PORQUE 
E >- ABAJO ES MENOR QUE 

EL OTR0*:GOTO 290 

1190 IF OC(NB) THEN PRINT 111," ESE 
CUADRADO YA ESTABA CUBIERTO":GOTO 
298 

1200 IF NA<? THEN IF OC(NA) THEN PR 
INT til, EL CUADRADO DE ABAJO ESTA 
CUBIERTO”:GOTO 290 
1210 IF HN I’HEN 1220 ELSE xx=PY(NB) 
*20416*<<NB MOD 2)H)♦16»<NA MOD 2) 

:GOTO 1230 

1220 IF 1 MOD 2-0 THEN XX- 161 ELSE 
XX-177 

1239 IF XX + T > 400 THEN PRINT ttl,' J 
E SALES DE LA PANTALLA":GOTO 290 

1240 I=NA:BR=-1 

1250 IF NA>6 THEN GOSUB 3000 ELSE G 
OSUB 2500 

1260 IF HN THEN PX<I)-P(JI) ELSE PX 
(I)=PX(NB) 

1270 IF NOT HN THEN OC(NB)—1 
1280 PY(NA)—XX 
1290 BR-0 

1300 IF NA>6 THEN GOSUB 3000 ELSE G 

OSUB 2500 

1310 OC(DB(NA))=0 

1320 DB(NA)=NB 

1330 GOTO 290 

2800 REM posicion de Fr* donde esta 
p a I $■ 

2010 M=N 

2020 p- INSTRCM , 4 r'B , pa I •*) 

2030 IF p«0 THEN 2120 
2040 IF p=i THEN 2070 
2850 A*=MID*<-fr* jP -l , 1 ) 

2069 IF A*<>" ■ AND «*<>",’ AND A*< 
>“i" THEN 2100 

2070 IF p+LENCpa 1 *)-1-LEN( Fr*) THEN 
2120 

28 30 A*=MID*(F r*,p + L EN(p a 1 *),1) 

20 90 IF A* < >• ■ AND A*<>",• AND A*< 
>"; THEN 2100 ELSE 2120 
2100 M-p+LEN(pal*) 

2110 GOTO 2028 

2120 RETURN 

2580 REM cuadrado 

2510 IF BR THEN F=l:GOTO 2540 

2520 p=(i-1)\2 

2530 IF p=l THEN p=3 

2540 GRAPHICS PEN p 

2550 IF i MOD 2 0 THEN t 16 ELSE t= 

32 

2580 PLOT px (i)- t , py ( i )- t 
2578 DRAW px( i) + t — 1 , p y (i ) — t 
25S0 DRAW px(i) + t -1 ,p y (i ) + t - 1 
2590 DRAW px(:)-t,py(i)+t-l 
2800 DRAW px(i)—t,py(i)-t 
2610 MOVE px(i),py(i) 

2620 FILL p 

2630 RETURN 

3000 REM triangulo 

3010 IF BR THEN P=l:GOTG 3040 

3020 p=( i -7)\2 

3030 IF p=l THEN p=3 

3840 GRAPHICS PEN p 

3058 IF I MOD 2=0 THEN t=18 ELSE t = 

32 

3060 PLOT px(i)-t,py(i)-t 
3078 DRAW px<!)+t—1,py(i)-t 
3880 DRAW px(i),py(i)+t-l 
3898 DRAW px(i)-t,py(i)-t 
3180 MOUE px(i),py(i) 

3110 FILL p 
3120 RETURN 

3500 DATA "AZUL",1,"ROJO",2,"UERDE 
,3,’NO",0 



a/a que to 6e6oi 
no recfixct ef l/otxjje dm, M. H. 
JlfAOlo bxe pot h icdoi lei lii'odot qat indvfon 
tile bgo'pa it ewan'rao a b diponcioo w w> /as 
fete MMuat. 
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ON TVS IDEAS! 



PERIFERICOS PARA LOS MODELOS CPC 464, CPC 664 Y CPC 6128 

• ANTA 64 K.3 Apipliacidn de memoria, buffer de impresora y Ram Dis! 

• SINTET1ZADOII DE VOZ 

E! proqrama qua controla este sintetizad-r, contiene las reglas basicas d 


programa qua controla este sintetizador, contiene las reglas basicas de pronunci 
stellano y permite su func< anamiento, tanto en mode directo, como bajo el conti 


• RS-232-C 

C P^rmite comunicar el orders 'dor con impi soras y plotters con e 
modems, y otr os ordenadoms. 

PEPIFERICOS PARA LOS MODELOS PCW 8256 Y PCW 8512 

FMTnnMirRitfL I - I - 

tlYT n\7Ttro 

Proporciona al ordenador dos canales de comunicacion: 

- Canal paralelo centronics) para el manejo tie impresoras. 

- Canal serie (R9-232) para comunicar con >tros ordenad res 
moderns, plotters, etc.). 


oras y plotters con entrada serie 


lodems, plo' ters, etc.). 


MHT ingeiimfOi 
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*' Informacion sobre: Perifericos Amstrad otro: 
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BYTE: es la bebida preferida por el 
ordenador. 

DIAGRAMA DE FLUJO: dibujo expli- 
cativo de un proceso, natural o arti¬ 
ficial, _que_^qlgunas personas se ven 
obligadas a realizar periodicamen- 
te (ver iNCON FES ABLE). 

DEBUG: en honor de Jacques De¬ 
bug, el mayor idiota informdtico de 
la historic, autor del programa mas 
largo del mundo capaz de escribir en 
pantalla «mi mama me mimax. El 
nombre enmarca un proceso desti- 
nado a la captura de errores en un 
programa,. o, en su defecto, a la 
creacion de otros nuevos mientras se 
eliminan los antiguos, 
f ' ’ 

VARIABLE: parte de la memoria de 
un ordenador a la que se le asigna 
un valor que nunca coincide con el 
previsto, alterandose de forma mis- 
teriosa (ver RANDOM). 

TERMINAL: configuracion Amstrad 
que incorpora, en Tugar de un moni¬ 
tor a color, una ventaniila expedido- 
ra de todo tipo de billetes impresos. 
Incluye, completamente gratis, fun- 
cionario «cutre », silla odiosa y cafe¬ 
teria con precios abusivos (mas IVA). 

S0R1: rutina especializada que po 
seen la mayorfa de los sistemas ope¬ 
ratives que se precien, pensada pa¬ 
ra colocar los «slips» de los usuanos 
en orden alfabetico. 

ROM: barrilito de bebida espirituo- 
sa que los Amstrad llevan de fabri 
ca. Dicen que es imprescindible pa¬ 
ra que la maquina funcione (ver CU 


RESTORE: del prefijo «RE », repetir, 
y «STORE», almacenar, es decir, 
guardar lo que ya esta guardado. 
jVaya estupidez! (Ver «West Side 
Store», preferiblemente un mierco 
les), 

SILICIO: gobernador romano de 
California del Siglo I D.J. 

SUBRUTINA: trabajo mecanico que 
se realiza a escondidas y con la de- 
saprobacion de todos (ver HACIEN¬ 
DA). 

MONITOR: especie primate, pe- 
quefiita y simpatica, que habita en- 
cima de las mesas unida por un ca¬ 
ble a la unidad central de un orde¬ 
nador, en lugar de los arboles, co- 
mo Dios manda. Oriainario de Suda- 
frica, solo existe en dos colores: ver- 
de y multicolor. 

NETWORK: ci udad norteamerica 
na en la cual todos sus habitantes tra- 
bajan juntos conectados por cables, 
compartiendo calles, coches y edifi- 
cios por riguroso orden. 


REGISTRO: subdivision de un fiche- 
ro armada de orden judicial, que 
normalmente acaba revolviendo los 
cajones (con perdon) de la morada 
de algun probo usuario. 

CHAIN: pais asiatico especializado 
en el encadenamiento de progra- 
mas, llamados ciudadanos por las 
malas lenguas. 

FICHERO: palo inmaterial, com- 
puesto de celulas de memoria y aca- 
bado en un gancho, que se utiliza en 
las faenas de pesca de unicornios. 

Empleado provisto de tarjeta per- 
forada por un reloj. 

Bueno,pues aquf acaba, por aho- 
ra, el extracto de lo mas florido de 
nuestro diccionario informatico. Tie- 
ne algunas pequehas deficiencies: 
estd incompleto, no esta ordenado 
alfabeticamente y hace referencias a 
palabras que no existen en el texto, 
pero por lo demas es una joya. En 
caso de duda, no lo dude: no nos Ho¬ 
me, nosotros tampoco le llamare- 
mos. 


BA): 

PROCESADOR: juez militar chileno, 
apodado «Z80», programado para 
aplicar lot maxima pena aleatoria 
rnente (ver CRIMINAL). 

4 1 i j ■ ■ 1 1 i f 
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Presenta: el universo del software. 


B3 Wk 


La mas moderna base de datos 
DELTA, superandose a si misma, 
"DELTA +", desarrollada para 
CP/M por COMPsOFT con todo 
en espanol. 

Disena sus propios ficheros; des- 
de un simple fichero de nom- 
bres y direcciones hasta su pro¬ 
pio sistema contable. El formato 
standar DIE permite intercam- 
biar datos en DLL TA, desde las 
hojas de calculo CRACKER II, 
etc... y viceversa. Intercambio de 
datos cun la mayorla de los tra- 
tamientos de texto como NEW- 
WORD para MAILING. 

Incluye un sendllo y funcional 
sistema de impresion de etique- 
tas con: hasta 5 columnar de eti- 
quetas, 65 caracteres por etique- 
tas, 20 Tineas con 3 campos cada 
una. 

• PROCRAMABLE Y RELATIO¬ 
NAL 

• FICHEROS tNDEXADOS. 

• HASTA 90 CAMPOS 6 2.000 
CARACTERES. 

• MULTIPLES SISTEM.AS PE BUS- 
QUEDA, 8 CLAVES 

• FICHEROS DE HASTA 8 Mb. 

• 8 CRUPOS DE TRANSACCION 
PL )R REC/STRO. 


BASE 

DE DATOS 


17,850 pts. 


. *. 




# 


* 


Programa de tralamiento de tex- 
tos mejorando todo to anterior. 
Manual y programa en espanol, 
que le enseharan con facilidady 
rapidez lo mas a vanzado en pro- 
cesadores de textos. Compatibi 
lidad funcional con WORDSTAR 
incluyendo muchas capacidades 
adicionales. 

Tiene un potente MAIL-MERGE 
con opcion de seleccidn de des- 
tinatarios por criterios base de 
datos, creacion de documentor, 
impresion de etiquetas. Utiliza 
todo el espacio de disco. Ensam- 
b/aje de textos, sustitucion, etc., 
de la forma mas facih autohace 
copias de seguridad. /NUNCA 
PERDERA UN TEXTO!' 

• N, ACENTOS, DIERESIS, ETC... 

• PRESENTACIONEXACTA ENPAN- 
TALLA DEI FUTURO DOCU- 
MENTO IMPRFSO. 

• INTERCAMBIOSDE FICHEROS 
CON CRACKER. 

• VARIABLES SUSTITUIBLES EN 
IMPRESORA. 

• POTENTE CALCULADORA. 

• COMPROBADORORTOGRA- 
FICO Y GRAN DICCIONARIO 
f45.000 TERMINOS AMPLIA- 
BLES). 

« POSIBILIDAD DELECTl IRA DE 
FICHEROS DE DELTA, CARD 
BOX, SUPERCALC, DBASE II. 
ETC... 


TRATAMIENTO 
DE TEXTOS 


17.850 pts. 


EDITOR Y DISTRIBUTOR EXCLUSIVO PARA ESPANA 


★ 
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El CRACK de las hojas de calcu¬ 
lo, la que deja detras al resto. 
Funciones nunca vistas, forma- 
teo de fechas, salvaguardia con- 
tinua sobre un fichero. Realiza 
automaticamente copias de se¬ 
guridad. Ademas de las tradicio- 
nales funciones, CRACKER II 
posee funciones logicas, estadls- 
ticasydealta matematica. Inter- 
camoia datos con NEWWORD, 
bases de datos y la mayorla de las 
hojas de calculo. 

• CELDAS PROCRAMABLES. 

• FUNCIONES ESPECIALES: 
Fecha, dias; desde y hasta la fe- 
cha de la semana, del ano, kpso 
de tiempo, retraso, beep entra- 
da, saludo usuario. 

• SISTEMA DEAYUDA ON-LINE. 

• SUMA CONDI C / ON A L. 

• TOMAR DECISIONES EN LA 
HOJA. 

• 18 MODOS CRAF/COS DIS- 
TINTOS. 

• TRADICIONALES FUNCIONES 
MATEMATICAS YAMPLIACION, 
FUNCIONES ESTADISTICAS Y 
LOGICAS. 

• GENERA CRAFICOS EN BASE 
A LOS DATOS 


HOJA 

DE CALCULO 


17.850 pts. 
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NUCLEUS mas que una estrella 
una constelacion; tres ESTRELLAS 
en un SUPERPROCRAMA, la so¬ 
lution a cualquieraplicaddn por 
compleja que sea, NUCLEUS es 
GENERADOR DEPROGRAMAS, 
BASE DE DATOS Y GENERA¬ 
DOR DE IN FORMES. 

Toda la information es multi-in- 
tercambiable y de libre acceso 
pot cualquiera de los demas 
programas. Asi los datos de la 
base los condicionamos y uti/i- 
zamos en el generador de pro¬ 
gramas y los imprimimos a tra ves 
del generador de in formes. 

• GENERADOR DEPROGRAMAS 
FN MALI ARP BASIC 

• CREACtON PE BASES DE DA¬ 
TOS REIACIONALES. 

• GENERADOR DE INFORMES. 

• DISENADOR DE FORMATOS. 

• DISENADOR DE PANTALLAS. 

• CODIGO FUENTE DE LIBRE 
ACCESO Y LIBRE DE ERROR. 

• DISENA SU PROPIO SISTEMA. 

• MAILMERCE. 


La revolution del pensamiento, 
BRAINSTORM es un programa 
que piensa con Vd. 

El companero ideal para el em- 
presario, director o cualquier 
persona que tenga que planifi- 
carse o tomar decisiones. 
BRAINSTORM es la ayuda nece- 
saria para su organization. El 
programa que se ha standariza- 
do en Inglaterra, tan necesario, 
util y popular como una base de 
datos o un tratamiento de textos. 

• ORGANIZA POR RANCOS. 

• ACCESO DESCENDENTE POR 
MFNORIZADO. 

• PLANIFICACIONA NIVEL DIA. 

• DECISIONES A LARGO PLAZO. 

• REVISION DE PROBLEMAS. 

• SIMULTANEIZACION DE TA- 
REAS. 

• PROCESO TOP/DOWN. 


Piii... su ordenador le com un lea: 
La revolucion de las tomunica- 
ciones, de la mano de OFITES 
INFORMATICA, llega a Espana. 
El nuevo mundo de las comuni- 
caciones digitales to tiene a su 
disposicion, las redes de transmi- 
sion electronica digitalizada, con 
su PCW8256o PCW8512a travis 
de un interface RS 232-C con 
otros ordenadores, redes de trans- 
mision de datos, etc..., Vd. podra 
enviar o recibir ficheros de texto 
o de datos, ASCII, etc..., creados 
por NEWWORD v otros... 

• TRANSICIONES DIRECTAS EN 
RED. 

• COMPATIBILIDAD CON NEW¬ 
WORD. 

• POSIBILIPADES DF TRANSMI- 
SIONES VIA MODEM, RED 
TELEFONICA. 

• COM UNICA CION INSTA NTA- 
NEA. 


GENERADOR 

DEPROGRA MAS 

26.780 pts. 


ORGANIZADOR 
DE IDEAS 


17.850 pts. 


COMUNICA Cl ONES 


17.850 pts. 













HISOFT-C 

Daniel Palomo Ortega 


. Amstrad estabantos 

Todos los usuarl "iareelese en E*po"» u ” fin 
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—*£iffi'JB funcionamlento del m.s 



I lenguaje C se cred en 
1972 como una herramienta de programa- 
cion. El creador del C es Dennis Ritchie, de los 
laboratories Bell. Este lenguaje surgio cuan- 
do Ritchie trabajaba, junto con Ken Thomp¬ 
son, en el diseno del sistema operativo UNIX. 

Este lenguaje no surgio por arte de magia, 
como es de suponer, sino que derivo del len¬ 
guaje 8 de Thompson, que a su vez... Pero eso 
es otra historia. 

Fue creado como herromienta de progra- 
madores, por tanto es un lenguaje util, ya que 
es potente, flexible y rapido. 

El C es un lenguaje muy extendido, existen 
compiladores para mullitud de sistemas aparte 
del UNIX, tan importantes como: Cray I, IBM, 
Sperry, Apple, Commodore, Amstrad, etc. 

El C se utilize en aplicaciones muy variadas, 
por ejemplo, el sistema operativo UNIX esta 
escrito en C. Muchos compiladores, ademas 
de multitud de juegos, se han hecho con este 
lenguaje e incluso se utilizo en El reforno del 
Jeai para la animacion de las secuencias de 
la pelicula. Paquetes de software, programas 
de gestion y un largo etcetera han sido reali- 
zados en C. 

El C es un lenguaje estructurado que pro¬ 
duce programas compactos, eficientes, trans¬ 
portables, y de modificacion muy sencillc. 

^Que es lo que da esta potencia? C es un 
lenguaje moderno que trata las tareas por se- 
parado, es decir, es un lenguaje modular, to- 
do esto se realiza gracias a la flexibilidad de 
sus expresiones. La filosofia de diseno de C se 
basa en el adecuado uso de las funciones, es- 
tas son parecidas a las subrutinas, procedu¬ 
res y funciones de otros lenguajes, el C traba- 
ja siempre con funciones como palabras cla¬ 
ve, PRINTF ), SCANF(), F$EEK(), son fun¬ 
ciones predefinidas, y nosotros podemos crear 


nuestra biblioteca muy facilmente e incluir fun¬ 
ciones propias en las ya creadas. Por todo es¬ 
to, rnuchas de las funciones a las que estamos 
acostumbrados no estdn implementadas en C. 

La implementacion de HISOFT es buena y 
ademas tiene el detalle de suministrar dos com¬ 
piladores en el mismo disco, uno que funcio- 
na bejo AMSDOS y otro bajo CPM. Pasemos 
a analizarlos. 


Crear un programa fuente 

Lo primero que tenemos que hacer para 
crear un programa C es almaceriario en un fi- 
chero de texto, esto lo podemos realizar con 
los editores que se suministran con cada conn- 
pilador. 

El perteneciente a AMSDOS es el tipico de 
Hisoft con ordenes parecidas a las de anterio- 
res productos de esta marca. 

El de CP/M es, el ya conocido por sus usua 
rios, EDSO compatible con WORDSTAR. 

Podemos utilizar cualquier editor al que es- 
temos mas acostumbrados. 

Veamos como funcionan. 


El editor de lineas 

El editor que va implaniado en el compila 
dor de AMSDOS es muy parecido al original 
de Amstrad, teniendo habilitado el cursor 
de copia y todas las demas funciones. 

Los numeros de linea son una referencia pa¬ 
ra el programador y el compilaor solo los tie¬ 
ne en cuenta en el tratamiento de errores, para 
referenciarnos mas rapidamente a la linea en 
cuestion. Si en este momento se pulsa lo tecla 
[Ej se editara la linea que produjo el error, 
cualquier otra tecla retorna al modo directo. 
Las Haves son imprescindibles en C, con ellas 
se indica el principio {[)y el final (j) de funcio¬ 
nes, condiciones, budes, etc. En el CPC6128 
se pueden obtener con [CTRL] mas los paren- 
tesis. 



| n# |. El editor imprime los 

numeros de linea siendo 
n el numero inicial e i« 
incremento. 

Ln,m: Lista un numero 

indicado de lineas, 
siendo n la primera 
linea a listar y m la 
ultima. 

Wn,m*. Lista por impresora. 

S„d; Selecciona el 

delimitador a utilizar 
por los comandos del 
editor, muy util cuando 
queremos Duscar 
cadenas que contienen 
comas, d es el . 
delimitador elegido, 
este no puede ser un 
espacio. 

C; Retorna al compilador 

Si todo es correcto 
tedeando #INCLUD| 
comenzara a compiler! 
nuestro programa. 

Dn,m: Borra los numeros de 

linea comprendidos 
entre n y m. 

i P<tY AMSDOS estan todos < 


COMANDOS DEL 
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DITOR DE UNEAS 


Hrtfis 


Fn,m,c,c: 


Pn,m, 

nom: 


Gn,m, 

nom: 

!n: 


Renumera el programa 
siendo n el primer 
numero de linea e i el 
incremento. 

Busca una cadena c en 
los numeros de linea 
comprendidos entre n y 
m, y la sustituye por la 
cadena c. 

Imprime en pantalla los 
valores actuates de n, 
m, c y c', asi como el 
delimitador actual. 

Graba un programa en 
disco o cinta, n es la 
primera linea que se 
quiere grabar, m la 
ultima y nom el nombre 
del fichero con su 
extension. 

Carga un programa de 
disco o cinta. 

Edita la linea 
especificada por n. 


1U( islra disposition. 


El editor de CP/M + (ED80) 

Este editor, compatible con WORDSTAR, es 
muy potente y no tiene nada que envidiar a 
los procesadores comerciales. 

Todos los comandos se consiguen con [CTRL] 
y una o varias letras. 

A continuacidn damos una lista de ellos cla- 
sificados por fareas: 


Movimiento del cursor 

S Caracter 


izq. 

D Caracter der. 

H Caracter 


izq.(bor) 


A Palabra 


izq. 

F palabra der. 

0 S Tabula 


izq. 

0 D Tabula der. 

Q S Principio 


linea 

Q D Final linea 

E Linea 


superior 

X Linea inferior 

6 E Principio 


texto 

0 X final de texto 

R Pdgina 


posterior 

C Pdgina anterior 

Borrado 

V 

Borra linea 

[DEL] Borra 


ultimo caracter 

G Borra este caracter 

0 T Borra 


palbr. izq. 

t Borra palbr. der. 

0 [DEL] Borra 


principio linea 

Q Y Borra final de 


linea 

K B Marca 


princ. bloque 

K K Marca fin bloque 

K V Mueve 


bloque 

K C Copia bloque 

K Y Borra 


bloque 

K R Lee bloque de 


disco 

i( W Graba 


bloque disco 


Movimiento rdpido del cursor 

0 G Ir a linea 


Q B Ir a princ. 


de bloque 

Q K Ir a fin de 


bloque 

K 0 Recuerda 


posicion 

0 0 Ir a posicion 

Busqueda y sustitucion 

0 F Busca 


primero 

L Busca siguiente 

0 L Sustituye y 


busca 

0 A Sustituye todo 

K 


Q Abandona y 


sale 

6 Q Salir sin Backup 

K X Salir con 


Backup 



Banco dc 



Varios 

K F Directorio 

K J Borra fichero de 


disco 

P Control 


meta-key 

j Ayuda 


Un editor muy completo, como se puede 
ver, y con posibilidades de adaptarlo a nues- 
tro gusto, permitiendonos remodelar la pan¬ 
talla de acuerdo al monitor utiliiado, ya sea 
de la serie CPC o PCW. 


Un poco de... C 

El C es el lenguaje que se maneja muy bien, 
En eso de los numeros el rango es el mismo 
que el de LOCOMOTIVE BASIC, pero hay al- 
gunas adaraciones que hacer; los numeros oc- 
tales se representan anadiendo un 0 a la iz- 
quierda si tiene significado, por lo tanto, no 
debemos utilizer esta notation, ya que seria 
entendido erroneamente por el compilador. 
Los numeros hexadecimales se representan 
con un cero seguido por una X y a continua¬ 
cion el numero hexadecimal (OX4F3B). 

Los caracteres simples pueden ser maneja- 
dos encerrandolos entre comillas simples o do- 
bles CA';"B"). 

Tenemos una serie de caracteres, llamados 
en C coracteres de escape, que son utilizados 
para imprimir retorno de carro, salto de pa- 
gina, comillas, etc, Estos se representan pre- 
cedidos de la barra atras (\) y son los siguien 
tes: 

Is la animation d Xn nueva j[ nea 

\ b espacio atras 
\f avance de pdgina 
\t tabulador horizontal 
Nr retorno de carro 
\" comillas 
\ \ barra atras 
\" comillas simples 

Tambien podemos utilizarlos escribiendo su 
valor ASCII en octal precedido por la barra 
atras, esto sirve para imprimir todos los carac¬ 
teres graficos de Amstrad por ejemplo \ 32 
seria EOF; \377 imprimiria el ultimo carac- 
ter del juego (las pesos), el valor a continua¬ 
cion de la barra atras unicamente se puede 
poner en las bases disponibles. 

Las cadenas se almacenan en una matriz 
conteniendo el valor ASCII de cada compo- 
nente de la misma, cada caracter ocupa un 
byte. 
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Los nombres e identificadores pueden tener 
la longitud que deseamos, para hacer mas cla- 
ro lo que queremos representor con ellos, pe- 
ro solo tendran significado para el compila- 
dor, los 8 primeros caracteres del nombre, se 
pueden utilizar todas las letras, numeros y el 
guion abajo, (A-Z, a-z, 0-9, .)• 

Por convenio se dejan las palabras mayus- 
culas para los nombres que utilicemos en los 
comandos del preprocesado, se escribe el pro- 
grama, siempre que sea posible, en rninuscu- 
iqs. 


Palobras reservadas 


C es mucho menos extenso, en lo que a pa¬ 
labras reservadas se refiere, ya que al estar 
compuesto por funciones es mas dificil, por no 
decir imposible, utilizar un nombre de una fun- 
cion como nombre de variable, ya que los pa- 
renfesis forman parte del nombre ae la fun- 
cion y no son caracteres permitidos para un 
nombre de variable. 

Pero sf tenemos algunas palabras con las 
que el compilador se haria un lio si las utiliza- 
ramos como nombre de variable. 

Estas palabras son los siguienfes: 


PALABRAS RESEI 




Auto 

break 

char 

continue 

double 

else 

float 

for 

inline 

int 

return 

short 

struct 

switch 

unsigned 

while 

case 

cast 

default 

do 

entry 

extern 

goto 

if 

long 

register 

sizeof 

static 

typedef 

union 


Programas en C 

Los programas en C se consiguen gracias a 
una coleccion de funciones creadas por noso 
tros, las implementas o las de libreria, que ha- 
cen que todo eso funcione. jComo consigue 
saber el compilador por donde ha de empe 
zar a ejecutar el programa? Esto lo sabe por- 
que nosotros hemos de llamar, obligatoria- 
mente, Main () a la funcion principal, esta es 
la traduccidn de Main, de nuestro programa, 
asf sabrd por donde empezar, sencillo, jno? 

A continuacion del nombre de la funcion se 
pueden poner los pardmetros de la rnisma, en- 
cerrada entre parentesis vados a continuacion 
del nombre. La funcion comienza en el punto 


en que encuentra una Have de apertura (|), to- 
do lo que existe entre el nombre y esta Have 
es considerado por el compilador como decla¬ 
ration de variables. La sintaxis de una funcion 
es la siguiente: 

Nombre de funcion (lista de 
pardmetros) 

Declaracion de variable 

Asignacion de variable 
y llamadas a funciones 

La Have de cierre finaliza la funcion. Los co 
mentarios pueden ser induidos entre barras y 
asteriscos [/* comentario*/) 


Tobias de operadores 

A continuacion se da la tabla de operado¬ 
res, ordenados, de acuerdo con su prioridad 
de mayor a menor: 


ello tenemos algunos tipos ya implementados 
y estos son: 

CHAR para dedarar variables y matrices en 
cadena 

INT para declarar enteros con signo 
UNSIGNED para declarar enteros sin signo 
FLOAT para declarar enteros variables en 
punto flotante (reales) 

SHORT para declarar enteros cortos (1 byte) 
LONG para dedarar enteros largos (2 bytes) 
TYPEDELpara definir nuestros propios tipos 
de datos 

* para declarar punteros 
Las matrices en C son muy parecidas a las 
de BASIC. Esto se hace con el identificador de 
tipo correspondiente, seguido del nombre de 
la variable y los subindices entre corchetes. 

CHAR nombre [10] [30] 

Si no se usa ningun subindice, se utiliza el 
espacio requerido por los elementos de lo ma- 
triz. 



& 

U 


14 

1 

14 

+ + 

14 

— 

14 

sireof 

14 


cast 


10 Parentesis 

]5 Llamada a una 

funcion. 

15 Subindice. 

15 Suministro del 

valor de un 
incremento de una 
estructura. 

15 Puntero a un 

miembro de una 
estructura. 

14 Operador de 

indirection 
Direccion de var. 
Signo menos. 

NOT negacion 
logico. 

Operador de 
incremento. 
Operador 
decremento. 
Suministro el 
numero de bytes 
ocupados por una 
variable. 

14 Fuerza a que el 

tipo sea el 

especificado. 


< < 


Division. 

Halla el resto de 
una division. 
Suma. 

Resta. 

Operador de 
shift + a la 
derecho. 
Operador de 
shift + a la 
izquierda. 

Operadores de 
relation. 


Operador de 
igualdad. 
Operador de no 
igualdad. 

Y logico bit a bit. 
XOR logico bit a 
bit. 

0 logico bit a bit. 

Y Idgico. 

0 logico. 

Operador 

condicional. 


Tipos de datos 

En C hemos de declarar fodas las variables 
que vayarnos a utilizar en el programa, tal co¬ 
mo ocurre en otros lenguajes compilados; para 


Las estructuras es algo que posee C y que 
da gran flexibilidad a la hora de hacer pro¬ 
gramas, ya que nos permiien referirnos a cual- 
quiera de los elementos de la estructura muy 
facilmente, consiguiendo crear un base de da¬ 
tos, por ejemplo, sin problemas, ya que en la 
estructura se puede incluir cualquier tipo de 
datos. 
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Los modos de almacenamiento deierminan 
que variable conoce cada funcion y hasta 
cuando deben permanecer en memoria estas 
variables. 

Los tipos de almacenamiento son: 

AUTO: Es el modo asumido por defecto es¬ 
tas variables tienen alcance local, es decir, solo 
las conoce la funcion en la cual se declaran 
estas variables, desaparecienao al finalizar la 
misma. 

EXTERN: Cuando una variable se declara 
fuera del cuerpo de una funcion se dice que 
es externa y estas variables pueden ser utili- 
zaaas por todas las funciones que declaren en 
su interior como «extern», incluso estando es- 
ta variable en ofro modulo que queramos 
complilar junto con ei que utiliza esa variable. 

Si no se declara como «extern» se consi- 
dera una variable nueva y asumira el modo 
por defecto (auto). 

STATIC: Es del mismo alcance que auto, lo¬ 
cal, pero permanece en memoria durante to- 
da la ejecucion del programa. 

REGISTER: Estas variables son de modo 
automdtico, pero e' compilador intentera que 
esten situadas en los registros de la CPU en 
vez de estar en la memoria RAM. Es mas una 
suplico que una orden. 


El preprocesador 

El prepocesador es una parte del compila¬ 
dor C, se encarga de realizar algunas tareas 
«aom6sticas», tales como definir constantes y 
macros, incluir ficheros y librerfas etc. Los co- 
mandos son los siguientes: 

-•define: Define una constante, una macro 
instruccion, o cualquiera de las palabras re- 
servadas pudiendose ufilizar el nombre im- 
puesto por nosotros en su lugar. Por ejemplo: 
#define EOF —1 

#error: Este comando retira de memoria el 
texto de los cddigos quedando como unica di- 
ferencia los numeros de error, Esto es util cuan¬ 
do tenemos que compiiar programas muy lar¬ 
gos ya que el texto de errores ocupa 2K 


#data: Se situa ai principle ae la zona de Ga¬ 
tos, la direccion de memoria debe ir en hexa¬ 
decimal, solo u'ilizable en CPM. 

#li$t: Activaj- * 1 -) o desactlval—) el lisraao del 
programa. 

^direct: Activa o desactiva la ejecucion di¬ 
recta de comandos, parecido a la ejecucion 
directa en basic. 

^include: Inciuye el fichero escrito a conti- 
nuacion ya sea para compiiar juntos los mo- 
dulos o para incluir funciones de biblioteca. 
Tiene dos modos posibles: 

1) include «Nomfich» 

#include nomfich 

inciuye todo el fichero compilador junto con 
el actual. 

2) #incluae ?nomfich? 

inciuye solo funciones utilizadas por el progra¬ 
ma que da la orden #indude. 
^translate Graba en disco el codigo obje- 
to con ei nombre especificado por nosotros en 
CP/M solo sirve para cambiar el nombre del 
fichero objeto, 


Las bibliotecas de programs 

El compilador de C inciuye varias bibliote¬ 
cas, con las que podremos cubrir casi todas 
nuestras necesidades. Estas bibliotecas contie- 
nen toaas las funciones tipicas de C, las ruii- 
nas de manejo del disco, etc. Tenemos dos bi¬ 
bliotecas con casi todas las palabras reserva- 
das de Basic pero al estilo C, con ellas se pue¬ 
den aprovechar todas las presfaciones del AM- 
TRAD tanto grdficas como de sonido e inte- 
rrupciones. 

En CP/M encontramos todas las funciones 
para manejar a nuestro antojo, tanto el disco 
como pantaila o teclado. Los usuorios de 
CP/M+ podrOn disfrutar de los graficos, ya 
que inciuye una biblioteca para la extension 
grdfica GSX. 

Las bibliotecas se dividen en dos partes: 

El encabezamiento gue es donde se definen 
todas las constantes que se utilizan en la co- 
rrespondienie biblioteca. 



Y la biblioteca en si, que es donde se encuen- 
tran todas las funciones utiiizables y algunas 
para el manejo interno. 

Hay que agradecer a Hisoft que sea tan ex¬ 
plicative en estas bibliotecas, dando siempre 
la oportunidad de aprender algo mas, ya que 
estas se encuentran llenas de comentarios y 
nombres de variables con un significado muy 
claro, que hacen muy facll su lectura y com- 
prension. 

En las figuras 1 y 2 se encuentran las listas 
de funciones de las bibliotecas de AMSDOS y 
CP/M, stdio.h es la misma para los compila- 
dores. 



STUDIO.LIB 


nt abs(n) 
nt sgn(n) 

.nt poek (adress) 
void poke (adress,value) 
in out(data, port) 
int inp(port) 

iont atoi(s) , r \ 

void qsort(list, nu-,items, size, cmp-tunc] 

char *strcat(base, add) 

char *strncat(base,add,number) 

int strcmp(s,t) 

int strncmp(s), $2, n) 

char *strcpy(sl, s2, n) 

char *strcmp(dest, source) 

unsigned strlen(s) 

char *strchr(string, ch) 

int strspn(sl, s2) 

int strcspn(s), s2) 

char ’strchr(s, c) 

char *strrchr(s, c) 

int ispunct(c) 

int isalnum(c) 

int isxdigit(c) 

I int isascii(c) 
int iscntrl(c 
int isprint(c 
int isgraph c) 
int toascii(c) 
char *fgets(s, n, fp) 
char *gets(s) 
void fputs(s, fp) _ 

I char *calloc(n, size) 
void free(block) 
char sbrk(n) 
exit(n) 

-exii(n) 
void srand(n) 
void long-multiply(c, a, b) 
void long-init(a, nl, no) 
void long-set(a, n, d) 
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BASIC 1.LIB SONIDOS 


setup-sound() 
play(control-string, status) 

S-arm-event(channel-bif,seb-add) 

S-queue(sp) 

sound-check(chanbif) 

S-release(channel-bifs) 
$-ampl-envelope(number, envelope) 

S tone-envelope(number, envelope) 
S-hold(’) 

S-CONIINUEO 

after(delay-in-ticks, control-block, 
function-name) 

everytperiod-in-ticks, control-block, 
function-name) 

add-ticker (ctrl-block, initial-time-delay, 

recharge-deiai, function name 

init-event (event-block, function-name) 

border(colour) 

cass-speed (speed) 

catalog () 

cls() 

event-enable() 
event-disable() 
flash-speed(timel, timel) 
ink(ink-to-setup, colourl, colour,,) 
int inkey(key-number) 
char *instr(main-$tring, sub-string) 
itob(n, string, precision) 
joy(joystick-number) 

int key-function(tras!ated-key-number, 

expansion-string) 

K-arm-breaks(event-routme, ROM-select) 
K-disarm-break() 
read-file(filename, adress) 
char *strlower(string) 
char *strupper(string) 
time(array) 


BASIC2UB 


Jraw(control-string) 

r-set-graphic(on) 

F-swap-streams(stream number, 
another-stream-number) 
T-get-cursor(px-column, py-row, 
p-roll-count) 

G-ask-cursor(pdx, pdy) 

G-set-origin(x,y) 

G-win-width(x1,x2) 

G-win-height(yl,y2) 

G-dear-window() 

G-set-pen(ink) 

G-set-paper(ink) 

G-wr-char(c) 
G-move-absolute(x,y) 
G-move-relative(dx, dy) 
G-plot-absolute(x, y) 
int G-test-absolute(x, y 
int G-test-relative(dx, dy) 
G-lie-absolute(x, y) 
G-line-relative(dx, dy) 


CPM.UI 


void cpm-cmd-iine(aargc, oargv, buffer) 
int parse-args(s, argv, dest) 
cpm-dir(drive, user, afn, sp, width) 
void fcb-to-name(filename, fcb) 
cpm3-bios(func, a-param, bc-param, 
de-param, hl-param) 
int cpm-punouf(c) 
int cpm versionf) 
int. unlink(filename) 
rename(oldname, newname) 
int cpm-user(new-user) 
void cpm-bdos(func, param) 
void fseekfstream, offset, mode) 
read-file(filename, address) 
char *strupper($tring) 
char *strlower(sfring) 
write-file(filename, address, length) 


GSX.LII grdficos de CP/M 

v-dswk(handle) 
v-updwk(handle) 
v-pline(handle,count, pxyarray) 
v-pmarker(handle,count, pxyarray) 
v-gtext(handle,x,y,string) 
v-bar(handle,pxyarray) 
vst-height(handle,heigth, char-width, 
char-height,cell-width,cell-height) 
int vst rotafion(handle,angle) 


int vsl-type(handle,style) 

int vsm-type(handle,symbol) 

int vsf-calor(handle, color-index) 

int vsm-locator(handle,x,y,xout,yout,term) 

vsin-mode(handle,dev-type,mode) 

v-exit-cur(handle) 

v-enter-cur(handle) 

v-curright(handle) 

v-curhome(handle) 

v-eeol(handle) 

v-rvon(handle) 

v-dspcur(handle,x,y) 

v-rmcur(handle) 

gsx() 


Conelusiones 

Este es un compilador facil de usar en sus 
dos versiones, trae en sus bibliotecas multitud 
de funciones con las que podremos hacer ca- 
si todo, lo que no podarnos hacer solo tene- 
mos que implementarlo. 

Se probo su rapidez con dos programas, 1 
y 2, demostrando esacasa diferencia entre el 
compilador de AMSDOS y el de CP/M. Las 
pruebas efectuadas dieron los siguientes re- 
sultados: 


Compilacion 

3 segundos 

Bude vacio 

2 segundos en 


1.000 vuelias 

Bucle simple 

6 segundos en 500 


vueltas 

Bucle complejo 

49 segundos en 500 


vueltas 

Bucle texto 

18 segundos en 100 


vueltas 


Podeis probar a ejecutcr los mismos bucles 
en basic, midiendo los tiempos tardados, y ha¬ 
cienda las oporfunas comparaciones. Pero por 
si era poco miramos tambien como maneja C 
los ficheros. El programa 2 leia un fichero de 
texto, concretamente stdio.h, con mas de 
2.000 caracteres en tan solo 4 seg., el proce- 
sador de textos con que se ha escrito este ar- 
ticulo, tarda el mismo tiempo en realizar esa 
operaeion, a pesar de estar escrito en puro en 
samblador . 

Los manuales son escuetos pero bastante 
completos, tratando cada punto lo justo, sin 
pasarse en ningun sentido. La unica pega en- 
contrada fue la de estar escritos en ingles, a 
ver si tenemos pronto la version espanola. 



EQUIPO: CPC 464-664-6128 PCW 
8256-8512 

SISTEMA OPERATIVO: AMSDOS Y CP/M 
DISTRIBUTOR: 

OFITES INFORMATICA 
PRECIO: 15.000 PTAS. 
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i item* 


6 meses 


de msmtt cassitti 


Suscribete ahora a Microhobby Amstrad, o realiza tu 
renovacion, y recibiras, totalmente gratis, un regalo de 
exception: una suscripcion a Amstrad Cassette por 

seis meses. 

Cada cinta contiene los programas publicodos por 
Microhobby Amstrad durante un mes. 

Todos los programas de nuestras cintas se 
encuentran desprotegidos, con el objeto de 
facilitar su copia en disco y la revision de los 

listados. 


If 

maqui Na L 

Toda In „ 
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CASSfUL 


CA ^fr/i 




En cada cinta encontraras: 

— Apasionantes juegos llenos de accion y dinamismo. 

— Utilidodes con las que sacar mayor partido a tu ordenador. 

— Rulinas en codigo mdquina, para que las utilices en tus propios programas. 

— Y pequenos trucos de programacion, para que, poco a poco, te conviertas @n un experto. 
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Ofites Informatics 

Presents: 

el lapiz al que gusta deck 

mkntras nuestros competidores dicen no 



FL'NCIONES 

ESP 

dk’&onkx 

OTROS 

1 

L N.rO NfENL' DF, PANTAILA 

SI 

NO 


ARRASTRE OBJECT'S PAM ALL A 

ri Z 

NO 


TK ASLADO OBJETOS PANTALLA 

_ <_J 

NO 


TF ASLADO DE CURSOR 


NO 


CAJAS ELASTICAS 

i i 

SI 


LINEA ELASTICA 

S' 


TRIANGULO ELASTICO 

NO 


ELIPSE ELASTICO . 

NO 


DIAMANTE ELASTICO 

NO 


POLIGONO ELASTICO 

NO 


HEXAGONO ELASTICO I 

NO 


OCTQGONO ELASTICO SI 

NO 

A 

CUBO ELASTICO si 

NO 


PIRAMIDE ELASTICA 

NO 


CIRCUNFERENCIAS SI 

SI 


[ CIRCULOS RELLENOS 

c ! 

NO- 


CAJAS RELLENAS 

SI 

NO 

Z 83 Z 

ELIPSES RELLENAS 

o » 

NO 

0 

CUNAS 1 

CIUIU VHAD nc nADTCC 

[=r= 

NO 

HA 

o. 


IMAGES' espejo e invertida 


FONDO DERE- 

REJILLA DE FONDO 

OPCION DISPLAY X, Y 


RELLENADO CON COLOR 

LAVaDO DECOLOf 








V DOPANTALLA RESIDENTE 

iDE BORDESEN3D 


TEXTO 

9 TAMANOS DE BRC 


18 TOBERAS MOSTB 


ESTOS SON 
ALGUNOS EJEMPLOS 
DE LOS GRAFICOS QUE VD. 
PODRA1EALIZA1 CON NUESTRO 
IAPIZ OPTICO 


VARIADOR DE MFZCLAS 

r SI 

NO 


SOMBREADO DE MEZCLAS XOR 

SI 

u NO 


FICHERO ICONOS RESIDENTES 

SI 

NO 


FICHERO RELLENOS RESIDENTES 

SI 

NO 


26 COLORES DE PAPEL 

SI 

NO 


PALETA DE 15 TONOS DE COLOR 

SI 

NO 


POSICIONAMIENTO DE PUNTO 

SI 

SI 


RAYOS DESDE UN PUNTO FUO 

SI 

NO 


DIBUJO REFLEJADO (ESPEJO) 

SI 

NO 


FUNCION HOME 

SI 

NO 


CONTROL DESDE TECLADO 

SI 

SI 


CONTROL CON JOYSTICK 

SI 

NO 


DISPONIBLES MODOS 1 Y 2 

SI 

1 ... 





DEBIDOA LA FALTA DE ESPA CIO NOPODEMOS LISTARLAS OTRAS 

C AEA L Pf HACER. 


DISPONIBLE FAR*: 

CPC 464 CASSETTE 
CPC 464-664 DISCO 
CPC 6128 DISCO 

DJNDICIONES ESiPEClALES I 


4.900 Ptas. pu ede d irigirse a: 

6.900 Ptas. /*"">* L— 
6.900 Ptas. f C —r*T 


± v -V-- 

-.-•■T* K?:» - »<rT* H '“-- 1 - - 

DE VENTA EN LOS MEJORES COMERCIOS 
DE INFORM ATICA 

Si Vd. dene alguna dificultad para obtener el Upiz optko. 


I Avda. Isabel II, 16 -8* 

I Ink 455544 - 455533 
■ lex 36698 
Zsl 20011 SAN SEBASTIAN 
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ENVIE HOY M1SMO ESTE CUPON AL APARTADO 232 DE ALCOBENDAS (Madrid) 


Otedo espeac 
hasla e\ o' 

fc£Se*>*** 

I^odos. 
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D Deseo recibir en mi domicilio tres ejemplares de Juegos & Estrategia at precio especial de 2.255 ptas., lo aue me sucone odquirir tres y pagar solo dos. Marco 
los tres ejemplares que deseo con una croz. 

□ Deseo recibir un solo ejemplar de Juegos & Estrategia al precio de 1.125 ptas. Marco con una cruz el ejemplar que deseo recibir. 


Spectrum 

N.° 1 □ Arnhem 
N.° 2 L Ratos del Desierto 
N ° 3 □ OTAN Alerta 
War Zone 

Especial 1 □ Elecciones Generales 

N.° 4 D Su mejor horo (La batalla de Inglaterraj 


Amstrad Commodore 

□ Arnhem 

□ Ratas del Desierto 

□ Teatro de Europe □ Teatro de Europa 

War Zone 

□ La batalla de Inglalerra 0 La batalla de Inglaterro 


Fecha de 

NOMBRE „ . ..... .. nacimiento 

DIRECCION — 

LOCALIDAD , , ... ... . _ ... PROVINCIA 

C. POSTAL TELEFONO PROFESION _ -- - 






Forma de pago: 

□ Talon bancarlo a nombre de Hobby Press, S. A. □ Giro Postal a nombre de Hobby Press, S. A, n.° de giro 

□ Tarjela de creditor Visa n.° Master Charge n.° American Express n.° 

Fecha de caducidad de la tarjela .... Fecha y firma 










El CENTRO 


DE LAS NOVEDADES 



Venga a Sinclair Store. 


INVES 100 HF 


INVES PC 640 X 


Los primeros en tener lo ultimo. 


Le presentamos las mas recientes novedades. Desde los ordenadores 

PC totalmente compatibles por menos de 90,000 ptas,, lo ultimo en Spectrum. 

Convertidor TV para tu Amstrad, hasta las cadenps de sonido con un precio inferior a 30.000 
ptas., que van a revolucionar el mercado. jVA A SER UN ESCANDALO! 


OFERTAS 

Convertidor TV Amstrod. 

Ampliation memoria Amstrad 464, 64 K 
Ampliation memoria Amstrod 464, 256 K 
Disco de silicio 256 K . 

Lapiz optico Amstrad . 

Sintetizador de voz. 

Fundas teclado, desde. 

Opus Discovery . 

Software Amstrad, Commodore, desde 
Joystick Quick Shot II + Interface Kempston 


ABRIMOS SABADOS TARD^ 





/# 

SOMOS PROFESIONALES 


Pesetas 

Lanzamiento 

8.500 

21.500 

20.600 

5.600 

9.450 

800 

44.000 

500 

3.000 


BRAVO MURILLO, 2 DIEGO DE LEON, 25 

(Glorieta de Quevedo) (Esq. Nunez de Balboa) 

Tel. 446 62 31 - 28015 MADRID Tel. 261 88 01 - 28006 MADRID 

Aparcamiento GRATUIT0 Magallanes, 1 Aparcamiento GRATUIT0 Nunez de Balboa, 114 


AV. FELIPE II, 12 
(Metro Goya) 

Tel. 431 32 33 - 28009 MADRID 
Aparcamiento GRATUIT0 Av. Felipe II 








































